Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jaenicke,
11. Mai 2010
Seit ich beim Posten nicht aufgepasst habe. :mrgreen:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jaenicke,
11. Mai 2010
Ja, er hatte jetzt ein Beispiel gemacht für nicht anzeigen. Aber das geht schon auch:Form1 := TForm1.Create(Self);
try
Form1.Show;
Step1;
Form1.UpdateStatus(20, 'Kopiere Daten...');
Step2;
Form1.UpdateStatus(40, 'Mache was anderes...');
Step3;
Form1.UpdateStatus(70, 'Fast fertig.');
Step4;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jaenicke,
11. Mai 2010
Du meintest wohl:Form1 := TForm1.Create(Self);
try
Form1.MyProcedure; // Ausführen der Procedure
finally
FreeAndNil(Form1); // richtig, nicht aufgepasst...
end;;-)
So geht es im Grunde auch, wenn das Formular als Statusfenster dienen soll. Nur dass man dann den Status einfach an das Formular weitergibt statt dort eine Prozedur nur aufzurufen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jaenicke,
11. Mai 2010
So ist das auch nicht gedacht. OnActivate wird ausgelöst, wenn das Fenster angeklickt wird, also den Fokus bekommt (jedesmal, wenn das passiert!). Und wozu soll es da direkt geschlossen werden?
Das hört sich nach einem ziemlich ungünstigen Konzept an.
Was hast du denn vor?
Soll auf dem Formular ein Fortschritt angezeigt und dieses dann geschlossen werden? Dann steuere das Formular von außen,...