Form, BorderStyle, VCL

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

[hathor]

Dann liegt es an WINDOWS.

[redox]

Zitat von hathor:

Dann liegt es an WINDOWS.

Nicht so ganz richtig, es liegt an SEINER Version von Windows