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 :cry:

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 :-D

[Satty67]

Ich hab's mal ungetestet aus einem alten Projekt ausgeschnitten:

Delphi-Quellcode:

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 :-D

[Bernerbaer]

Siehe hier

[Björn Ole]

Oder hier

[DarkItachi]

Ganz dolles Danke! :-D

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;

[Satty67]

...und wo ist im Ergebnis der Unterschied zu

Delphi-Quellcode:

SetwindowLong(Handle,GWL_Style,GetwindowLong(handle, GWL_style) and not Ws_caption);

.
:gruebel:
Im OI halt vorher BorderStyle = bsDialog einstellen und sieht nicht anders aus oder doch? Egal, wenn es jetzt passt ist ja gut.

[DarkItachi]

Naja... Deine Methode erzeugt nicht den Aero Rahmen:

Aber trotzdem vielen Dank.. Diese Methode hatte ich früher nicht, das weiß ich genau..
Aber sie funktioniert halt :-D

[Satty67]

Ach OK, in XP sehe ich den Unterschied einfach nur nicht.

Danke, dass Du Dir die Mühe gemacht hast mir den Unterschied zu zeigen (werde die andere Methode in meine CodeLib aufnehmen)