Form ohne SystemMenuBar

[DarkItachi]

Hallöchen!

Ich habe es früher mal geschafft aber ich weiß nicht mehr wie und die Projectdateien habe ich leider auch nicht mehr..

Aber das Fenster kann man auf den Screenshot sehen!!
Weiß jemand, wie man das anstellen könnt? Ich weiß es nicht mehr

Aber der Rahmen ist mir besonders wichtig..
Eigentlich müsste man nur die TitleBar ausblenden und den Rahmen oben noch behalten...
Ich glaube so habe ich das früher auch gemacht...

Hat jemand eine Idee?

Thx IM VORHINEIN

[Satty67]

Ich hab's mal ungetestet aus einem alten Projekt ausgeschnitten:
SetwindowLong(Handle,GWL_Style,GetwindowLong(handle, GWL_style) and not Ws_caption); .
Müsste fast das sein, was du suchst?

[DarkItachi]

Leider nicht...
Das ist ja als wenn ich einfach Borderstyle auf bsNone schalte...
Aber ich will ja den Rahmen beibehalten..
Aber trotzdem nach wie vor thx

[Bernerbaer]

Siehe hier

[Björn Ole]

Oder hier

[DarkItachi]

Ganz dolles Danke!

Ich stelle es nochmal rein, falls jemand anderes etwas Funktionierendes sucht:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    // ...
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure CreateParams(var Params: TCreateParams); override;
    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
  end;

// ...

implementation

// ...

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := WS_POPUP or WS_THICKFRAME;
  Params.ExStyle := WS_EX_TOOLWINDOW;
end;

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;
  Message.Result := htClient;
end;