Form, BorderStyle, VCL

[haentschman]

Hallo hathor,
Alle meine modalen Forms basieren auf einem Container Form mit entsprechend eingebettetem Frame. Diese wiederum basieren auf einem Basis Frame welcher die "Schließen" Logik kapselt. Ich hätte gern im Fenstertitel das Kreuz weg weil in meinem "Header" bereits der Schließen Button sitzt, damit das nicht doppelt gemoppelt aussieht.

Zusammenfassung: Ich hätte gern den Fensterrahmen ohne Buttons aber im eckigen und schmalen Style des ToolWindows.

PS: So kann man auch die Anmeldung abbrechen falls man sich auf dem Desktop verdrückt hat. Das hat aber mit der Frage nix zu tun...

[hathor]

Hast Du bei den BorderIcons was falsch vorgegeben?
Bei mir sind keine Symbole.

[haentschman]

Hallo hathor,
Ich habe auch keine Buttons. Nur sind dann die Ecken des Fensters wieder rund und der Titel ist höher... Wie bei normalem Fenster.

Zitat:

Ohne Close Button -> Bild 2 (Form.BorderIcons:= [])

...was kann ich sonst einstellen?

Du hast W8, ich W7... macht das den Unterschied?

[hathor]

Wie wär's damit:

Delphi-Quellcode:

BorderStyle:= bsNone; //<----!!!

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
        procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure TForm3.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := (Params.Style or WS_THICKFRAME);
end;

[haentschman]

Danke...
Die Idee war gut. Leider hätte ich gern die Titelzeile und die Form muß verschiebbar bleiben...
Irgendwie kamen mir die Parameter bekannt vor. https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx Ich glaube das hatte ich schon mal durch. Leider komme ich nicht auf das gewünschte Ergebnis. Inzwischen spiele ich mit dem Gedanken eine eigene Titelzeile und das Verschieben zu implementieren.

[hathor]

Das ist auch einfach: Panel als Titelzeile...
...und zum Verschieben:

Delphi-Quellcode:

procedure TForm3.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Form3.Handle, WM_SYSCOMMAND, $F012, 0);
end;

Bei mir würde es auch so gehen, um Caption zu zeigen:

Delphi-Quellcode:

procedure TForm3.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := (Params.Style or WS_THICKFRAME or WS_CAPTION);
end;

[haentschman]

Zitat:

Params.Style := (Params.Style or WS_THICKFRAME or WS_CAPTION);

Ja sicher, nur ist der Rahmen abgerundet und nicht eckig.

Danke für deine Info´s. Über das Selbermachen muß ich noch mal schlafen...