case of-funktioniertn icht, why???

[dde]

Delphi-Quellcode:

case Form1.Height of
230:Form1.Height:=530;
530:Form1.Height:=230;
end;

Wieso funktioniert das nicht???

[Stanlay Hanks]

Es muss funktionieren...ich hab deinen Quelltext kopiert, das Formular auf 230 gebracht und das ging! Natürlich muss die Höhe des Formulars auch genau 520 bzw. 230 sein.

[Alexander]

Jepp sollte eigentlich funktionieren, ich frage mich nur nach dem Sinn?

[Stanlay Hanks]

@alex das kann man z.B. Brauchen, wenn man das Fenster nach unten erweitern will, (siehe MS Word - Suchfunktion - Erweitert)

[Alexander]

mhm naja wenn ihr meint..
Habe kein MS Office.... :P

[Stanlay Hanks]

Ich distanziere mich auch von M$ Office. Aber ich muss gestehen ich hatte es mal drauf...dann kam StarOffice 5.2 und alles wurde besser. aber das nur am rande....auf jeden Fall haben da manche Fenster solche Aufklappzusätze *cooles Wort*

[dde]

es klappt wirklich nicht!

in dem Programm, wo ichs eingegeben funktionierts nicht, aber in einem anderen neuen Programm schon, komisch!!

[mirage228]

poste maln bissle mehr quelltext bitte. das hilft glaub ich dann mehr!

[dde]

problems lösung:
naja das Formular muss Sizeable (Form1.BorderStyle:=sizeable) sein. dann geht der code!

[Stanlay Hanks]

:wall: Wie will man auch sonst die Größe verändern?!

[Marco Haffner]

Und wie sieht es aus, wenn Du anstelle von Form1.Height, Form1.ClientHeight verwendest?
Bedenke aber, das Du dann die Fenstergröße evtl. noch anpassen mußt, etwa im OnCreate-Ereignis auf ClientHeight := 220.
Du verwendest das ganze doch in eine OnClick-Prozedur?

Zitat:

Zitat von Stanlay Hanks

Wie will man auch sonst die Größe verändern?!

Indem man Height oder Width auf die gewünschte größe setzt.
BorderStyle := bsSizeable ist nur dazu da, wenn der Benutzer die Fenstergröße individuell anpassen soll, da aber nur zwischen zwei verschiedenen Fenstergrößen umgeschaltet werden soll, ist bsDialog oder
bsSingle wohl besser angebracht.