Titelleiste der Form ausblenden, aber Rahmen beibehalten

[Namenloser]

Du könntest auch einfach mal versuchen mit einem Tool wie WinSpy die Style-Eigenschaften des Beispielfensters aus dem 1. Beitrag auszulesen.

[Keks]

Wenn ich da bei "Styles" schaue, steht da "noch nicht implementiert"... Oder übersehe ich, wo das stehen könnte?
Ich hatte vorhin noch "Winspector" versucht, aber da konnte ich das Fenster nicht auswählen, weil sich das immer automatisch schließt, sobald man außerhalb klickt und ich wusste nicht, wie man das sonst auswählen könnte.

Wenns jemand anders ausprobieren möchte: Das besagte Fenster kommt, wenn man in Win7 auf ein Icon in der Taskleiste rechtsklickt oder wenn man auf die Uhr linksklickt. (gibt natürlich noch mehr Möglichkeiten). Das mit der Uhr könnte übrigens auch in Vista gehen, bin mir aber nicht mehr sicher.

[himitsu]

Zitat von NamenLozer:

[edit]
Ach sorry, hab nicht gelesen, dass es nicht in der Größe veränderbar sein darf.
[/edit]

Für sowas gibt es auch noch die Constraints.

[samso]

Eine weitere Möglichkeit wäre folgende: (Auch hier ist aber mindestens Delphi 2007 erforderlich)

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure WMNCCALCSIZE(var msg: TWMNCCalcSize); message WM_NCCALCSIZE;
  public
  end;

....

procedure TForm1.WMNCCALCSIZE(var msg: TWMNCCalcSize);
begin
  msg.CalcValidRects := True;
  msg.Result := 0;
end;

Dies erzeugt dann zunächst mal ein rahmenloses Fenster. Der Glassrahmen wird dann mit Hilfe der Eigenschaft "Glassframe" wieder hinzugefügt.

Edit:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  if IsCompositionActive //Aero aktiv?
  then begin
    GlassFrame.Enabled := True;
    GlassFrame.Left := GetSystemMetrics(SM_CXSIZEFRAME); 
    GlassFrame.Right := GetSystemMetrics(SM_CXSIZEFRAME);
    GlassFrame.Top := GetSystemMetrics(SM_CYSIZEFRAME);
    GlassFrame.Bottom := GetSystemMetrics(SM_CYSIZEFRAME);
  end;
end;

Edit:
Bei älteren Delphi-Version muss man vermutlich die Funktion "DwmExtendFrameIntoClientArea" bemühen, um den Glassrahmen in dem Clientbereich zu erzeugen.

[Keks]

Zitat von samso:

Bei älteren Delphi-Version muss man vermutlich die Funktion "DwmExtendFrameIntoClientArea" bemühen, um den Glassrahmen in dem Clientbereich zu erzeugen.

Ich verwende Delphi 2006 Pro. GlassFrame habe ich also nicht zur Verfügung. Mit DwmExtendFrameIntoClientArea habe ich jetzt ein bisschen herumgespielt, aber damit bekomme ich das auch nicht hin. Ich war zwar soweit, dass ich den Glas-Rand überall auf 5px gesetzt habe, aber dann waren am oberen Rand die drei Buttons auf der rechten Seite immer noch vorhanden, aber halbwegs schön auf 5px verkleinert ... dafür ohne Funktion.
Kannst Du das bei Dir mal testen, ob Du das geschickter hinbekommst?

[turboPASCAL]

Eigentlich ist das doch recht einfach zu erstellen.
Dazu den Borderstyle im OI auf bsNone stellen und die Form der Form von
Hand festlegen.

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;

Wie der "originale" Windowsstyle ist kann man leider nur vermuten, da es sich nicht um irgend welche
besonderen Windowsstyle-Eigenschaften handelt (Bild).
Möglicher weise wird das MS so oder anders machen...

[Keks]

Jaaa! Perfekt, vielen, vielen Dank!
Sieht sogar in XP noch vernünftig aus.

[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;

[010101]

das hier klappt gut beim xp...

http://www.delphipraxis.net/379391-post1.html

gibt es auch ne möglichkeit den windows rahmen bei der MessageDlgPos wegzubekommen?


mfg

[mkinzler]

Alos den Rahmen ausblenden, diesen aber trotzdem anzeigen?