Fenster verkleinern

[Pseudemys Nelsoni]

Hallo,

wie krieg ich in Delphi (geht das überhauot zur designzeit?) das Width eines Fensters kleiner als 123?

[SirThornberry]

Zur Designzeit wohl nicht da es meines wissens nur bei Borderstyle = bsNone kleiner zu stellen geht und das wird zur Designzeit noch nicht ausgeführt selbst wenn es über den Objectinspektor ausgewählt wurde

[Pseudemys Nelsoni]

irgendwie geht das gar nicht, auch mit bsNone krieg ich es zur laufzeit nicht kleiner als 123

[SirThornberry]

also

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  borderstyle := bsNone;
  width := 20;
end;

bewirkt bei mir dasses fenster nur 20 pixel breit ist

Du hast nicht zufällig "Constraints.MinWidth" auf 123 gesetzt???

[Pseudemys Nelsoni]

hallo SirThornberry,

ne Constraits ist bei mir alles auf 0, ich habe deinen code ausprobiert, es funktionietr bei mir nicht, obwohl ich es in einem neuen project testete

[Pseudemys Nelsoni]

Es geht doch, nurnicht im oncreate, also im button geht es zwar, aber bsNone ist nicht das richtige :\, ich brauch zwar keine buttns, aber die titelleiste

[SirThornberry]

dann wirst du dir die leiste selber zeichnen müssen da windows es nicht zulässt das ein fenster kleiner wird, wenn eine titelleiste vorhanden ist (muss ja schließlich die Caption und die buttons noch hinpassen)

[Pseudemys Nelsoni]

mhh, das ist ja schade

wie macht photoshop das denn z.b? weil wenn ich meinen XP style umstelle hat photoshop die titelleiste des entsprechenden styles, also kann sie doch nicht selber gezeichnet sein oder?

siehe anhang

[fkerber]

Hi!

Wie wäre es damit? (s. Anhang)

Das ist jetzt ohne BorderIcons, BorderStyle=bsSizeToolWindow und im OnCreate die Width:=60 (das ging bei mir!)


Ciao fkerber

[SirThornberry]

probier einfach mal die verschiedenen borderstyles durch. Mit Borderstyle = bsDialog kann man die größe auch kleiner setzen