Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sir Rufo,
23. Aug 2011
Damit kann ich auch leben :thumb: - hat sogar ein Hauch mehr Charme als meine Variante ;)
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sir Rufo,
23. Aug 2011
Du hast recht ... es war modal und jetzt nicht mehr ... :oops:
öhhm ... würde ich so machen
procedure TForm1.Button1Click(Sender: TObject);
begin
if not Assigned( Form2 ) then
begin
Form2 := TForm2.Create( Self );
end
else
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sir Rufo,
22. Aug 2011
So wie du das machst wird die Form TForm2 immer doppelt im Speicher vorhanden sein.
Einmal automatisch beim Programmstart und dann immer wieder beim Aufruf.
Irgendwie nicht logisch.
Also das Formular nicht automatisch erzeugen lassen.
Um TForm2 Modal aufzurufen folgender Code:
Procedure TForm1.OpenForm2Modal( Sender : TObject );