I want to a design form with controls on it but without a caption area, much like to window:

http://codebot.org/snapshops/no-caption.jpg

How is this possible with the LCL?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20131004/96d7f7fe/attachment.html>

BorderStyle := bsNone

BorderStyle := bsNone

And that removes the border. See the original linked screenshot.

http://codebot.org/snapshops/no-caption.jpg

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20131005/e38cd793/attachment.html>

No idea then, seems to be Windows API specific

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;

2013/10/5 silvioprog

In mainform:

unit Unit1;
{$mode objfpc}{$H+}
interface
uses
  Windows, Forms;
type
  { TForm1 }
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    procedure WMNCHitTest(var Msg: TMessage); message WM_NCHITTEST;
  end;
var
  Form1: TForm1;
implementation
{$R *.lfm}
procedure TForm1.FormShow(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_STYLE, WS_OVERLAPPEDWINDOW and (not
WS_CAPTION));
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_DRAWFRAME or
    SWP_NOMOVE or SWP_NOSIZE);
end;
procedure TForm1.WMNCHitTest(var Msg: TMessage);
begin
  inherited;
  case Msg.Result of
    HTTOP: Msg.Result := HTCLIENT;
    HTTOPLEFT: Msg.Result := HTCLIENT;
    HTTOPRIGHT: Msg.Result := HTCLIENT;
    HTBOTTOM: Msg.Result := HTCLIENT;
    HTBOTTOMLEFT: Msg.Result := HTCLIENT;
    HTBOTTOMRIGHT: Msg.Result := HTCLIENT;
    HTLEFT: Msg.Result := HTCLIENT;
    HTRIGHT: Msg.Result := HTCLIENT;
  end;
end;
end.

Does LCL not have a TPopupWindow class? eg: like you would use for Hint Windows, Splash Screens etc? Weird.

Regards,
- Graeme -

Graeme Geldenhuys wrote

Does LCL not have a TPopupWindow class? eg: like you would use for Hint Windows, Splash Screens etc? Weird.

There is THintWindow in the Forms unit, but AFAIK it does not allow the kind of border the OP wants without resorting to calls such as SetWindowPos of which silvio gave an example.

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