[Lazarus] How do you remove form caption area?

Zaher Dirkey parmaja at gmail.com
Sat Oct 5 21:28:37 CEST 2013


In Delphi we set Caption to '' and BorderIcons = [] but that not work in
Lazarus


On Sat, Oct 5, 2013 at 5:32 PM, silvioprog <silvioprog at gmail.com> wrote:

> 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
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>
>


-- 
I am using last revision of Lazarus, FPC 2.6 on Windows XP SP3

Best Regards
Zaher Dirkey
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20131005/7496ac51/attachment-0003.html>


More information about the Lazarus mailing list