| Autor |
Beitrag |
Intruder
Beiträge: 41
Win XP Home
D 2005 PE, Delphi 2009
|
Verfasst: Sa 30.09.06 16:23
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
Beiträge: 688
Windows 10 Pro 64bit
Sprachen: HTML, PHP, JavaScript, Delphi || IDE: RAD Studio 10.1 Berlin Starter, WeBuilder
|
Verfasst: Sa 30.09.06 16:47
Hi,
ich geb dir mal en Stichwort: Panels
|
|
Intruder 
Beiträge: 41
Win XP Home
D 2005 PE, Delphi 2009
|
Verfasst: Sa 30.09.06 16:54
Sorry, aber ich wüsste nicht wie ich das machen soll...?
|
|
Nemesis II
Beiträge: 49
|
Verfasst: 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
Beiträge: 41
Win XP Home
D 2005 PE, Delphi 2009
|
Verfasst: 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!
Zuletzt bearbeitet von Intruder am Sa 30.09.06 16:59, insgesamt 1-mal bearbeitet
|
|
Nemesis II
Beiträge: 49
|
Verfasst: 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
Beiträge: 41
Win XP Home
D 2005 PE, Delphi 2009
|
Verfasst: Sa 30.09.06 17:01
Nein ist noch nicht sichtbar.
|
|
Nemesis II
Beiträge: 49
|
Verfasst: 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
Beiträge: 41
Win XP Home
D 2005 PE, Delphi 2009
|
Verfasst: Sa 30.09.06 17:07
Wird dann nicht ein Scrollbalken angezeigt?
|
|
Nemesis II
Beiträge: 49
|
Verfasst: 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
Beiträge: 41
Win XP Home
D 2005 PE, Delphi 2009
|
Verfasst: 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.
Zuletzt bearbeitet von Intruder am Sa 30.09.06 17:17, insgesamt 1-mal bearbeitet
|
|
Nemesis II
Beiträge: 49
|
Verfasst: 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
Beiträge: 2195
XP
D3Prof, D6Pers.
|
Verfasst: Sa 30.09.06 17:18
Oben bei uses XPMan entfernen.
|
|
Intruder
Beiträge: 41
Win XP Home
D 2005 PE, Delphi 2009
|
Verfasst: 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
Beiträge: 49
|
Verfasst: 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
Beiträge: 41
Win XP Home
D 2005 PE, Delphi 2009
|
Verfasst: Sa 30.09.06 17:39
Ok, Danke nun funktioniert endlich alles!
MfG: Intruder
|
|
