Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by TiGü,
28. Okt 2015
Und wenn du es einfach im übergeordneten Formular machst?
Deine ganzen Formulare hast du ja sicherlich nicht von TForm abgeleitet sondern von TGünnisUrsprungAllerDingeForm, oder?
Dann könntest du ganz bequem das machen:
procedure TGünnisUrsprungAllerDingeForm.OnTimer(Sender: TObject);
begin
if Sender is TTimer then
begin
TTimer(Sender).Enabled := False;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by TiGü,
28. Okt 2015
Würde es nicht ausreichen, wenn du dich ans TCustomForm.OnActivate hängst?
Die Aufrufreihenfolge ist ja FormCreate -> FormShow -> FormActivate.
Musst halt mal probieren, ob dein Formular dann schon steht.
Oder im FormActivate einen Timer (10 ms?) anstoßen, im OnTimer Screenshot machen und Timer deaktiveren?