uses
unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Self);
Form2.ShowModal;
Form2.Free;
end;
---
uses
Windows;
procedure TForm2.FormShow(Sender: TObject);
begin
SetWindowLong(Handle, GWL_STYLE,
GetWindowLong(Handle, GWL_STYLE) and (not WS_CAPTION));
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_DRAWFRAME or SWP_NOMOVE or SWP_NOSIZE);
end;
--
Silvio Clécio
My public projects - github.com/silvioprog
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
