Titelleiste der Form ausblenden, aber Rahmen beibehalten

[MuTzE.Y85]

turboPASCAL genau das habe ich gesucht!
Ich danke dir!

Ich habe mir das Fenster der Tray Apps nochmal angesehen.
Macht optisch keinen Unterschied, aber es ist genau so eingestellt:

Zitat von turboPASCAL:

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_SIZEBOX or WS_BORDER or WS_MINIMIZEBOX;
  Params.ExStyle := WS_EX_TOOLWINDOW or WS_EX_TOPMOST or WS_EX_WINDOWEDGE;
end;

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

EDIT: Wenn ein Eintrag in der Taskleiste gewünscht ist, dann einfach noch "WS_EX_APPWINDOW" hinzufügen.

Code:

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