Entwickler-Ecke
Sonstiges (Delphi) - Form-Vergrößerung wie beim Windows-Taschenrechner
Intruder - Sa 30.09.06 16:23
Titel: Form-Vergrößerung wie beim Windows-Taschenrechner
Hi,
Ich habe einen Rechner programmiert und möchte jetzt auf Buttonklick die Form vergrößern oder durch eine andere austauschen. Also wie wenn man beim Windows-Taschenrechner auf Ansicht --> Wissenschaftlich klickt.
Ich hoffe ihr könnt mir helfen ;)
MfG: Intruder
Danny87 - Sa 30.09.06 16:47
Hi,
ich geb dir mal en Stichwort: Panels ;-)
Intruder - Sa 30.09.06 16:54
Sorry, aber ich wüsste nicht wie ich das machen soll...?
Nemesis II - Sa 30.09.06 16:55
Hi,
probier mal das hier, musst halt vorher festlegen wie groß das neue Fenster sein soll, in dem fall wird es um 50 Pixel größer wenn du auf den Button drückst!
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure TForm1.Button2Click(Sender: TObject);
begin
Width := Width + 50;
Height := Height + 50;
end; |
Intruder - Sa 30.09.06 16:57
Danke Nemesis, aber das Fenster soll ja nicht nur größer werden sondern auch in dem vergrößerten Teil einen Inhalt anzeigen.
€dit: Habe grade noch ein Problem:
Ich hatte ein XPManifest auf meiner Form und jetzt gelöscht aber es wird immernoch der XP-Style angezeigt... Auch auf anderen Forms ist kein Manifest mehr!
Nemesis II - Sa 30.09.06 16:59
Wird dieser Inhalt schon von Anfang an gesehen, oder kommt es zusätzlich wenn das Fenster vergrößert wurde?
wenn ja, dann mach diese Sachen einfach auf Visible := true sobald du vergrößerst!
Intruder - Sa 30.09.06 17:01
Nein ist noch nicht sichtbar.
Nemesis II - Sa 30.09.06 17:04
machst dein Fenster zuerst in der Ansicht wenn es vergrößert ist, platzierst dort die neuen Kompos, dann verkleinerst das Fenster, und wenn du während des Programms arbeitest, lässt du das Fenster größer machen, und schon sind dort die neuen Kompos!
Intruder - Sa 30.09.06 17:07
Wird dann nicht ein Scrollbalken angezeigt?
Nemesis II - Sa 30.09.06 17:09
ja du hast Recht, musst dann das Formular im Object Inspector ändern, und zwar BorderStyle : bsSingle, dann verschwinden die ScrollBalken!
Intruder - Sa 30.09.06 17:12
Ok, Danke!
Jetzt ist nur noch ein Problem: Ich hatte ein XPManifest auf meiner Form und jetzt gelöscht aber es wird immernoch der XP-Style angezeigt... Auch auf anderen Forms hab ich Manifest auch gelöscht! Wenn ich es draufbehalte, wird die Schrift einiger Buttons abgeschnitten, aber die Buttons kann ich aus Platzgründen nicht größer machen.
Nemesis II - Sa 30.09.06 17:15
Sorry da kann ich dir nimmer weiter helfen, sowas hatte ich noch nicht, aber es findet sich hier sich noch jemand der dir hilft.
Blackheart666 - Sa 30.09.06 17:18
Oben bei uses XPMan entfernen.
Intruder - Sa 30.09.06 17:24
Danke Blackheart!
€dit: Und noch was: Jetzt kann man mehrmals auf den Button klicken, also dass es bis ins unendliche geht.
Nemesis II - Sa 30.09.06 17:34
dann schau die Werte für Height und Width vom vergrößerten Fenster ab!
z.b. groß > Width := 400; Height := 400;
klein > Width := 200; Height := 200;
dann
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure TForm1.Button1Click(Sender: TObject);
begin
Width := 400;
Height := 400;
end; |
Intruder - Sa 30.09.06 17:39
Ok, Danke nun funktioniert endlich alles!
MfG: Intruder
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!