Form, BorderStyle, VCL

[haentschman]

Moin...

Ich bräuchte mal eine Idee zur Darstellung.

Gegeben:
Form.BorderStyle:= bsToolWindow;

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

Warum sieht dann das Tool Window wieder wie ein normales aus? As Designed?

SOLL:
Ich hätte gern das Tool Window ohne Buttons aus reinen optischen Gründen.
PS: AltF4 ist berücksichtigt.

Danke für Ideen;

Crosspost DT: http://forum.delphi-treff.de/index.p...rderStyle-VCL/

[hathor]

Wozu das alles?
Der "Anmelden"-Button alleine reicht doch aus.
Entweder sind die Eingaben korrekt oder nicht korrekt.
Nach der 3. Falscheingabe wird das Fenster geschlossen.
Mitzählen kann man über btnAnmelden.Tag.

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