In Delphi we set Caption to '' and BorderIcons = [] but that not work in Lazarus
On Sat, Oct 5, 2013 at 5:32 PM, silvioprog <silviop...@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@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
-- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
