Title: How to create a tool windows
Question: Two lines of how to create a tool-windows.
Answer:
type
TForm1 = class(TForm)
private
procedure CreateParams(var Params: TCreateParams ); override;
public
end;
...
procedure TForm1.CreateParams(var Params: TCreateParams );
begin
inherited;
Params.Style := Params.Style or WS_OVERLAPPED;
Params.WndParent := Form1.Handle;
end;