Guten Morgen,
Ich habe zwei VclFormulare : frmMain , frmProgress
frmProgress hat einen Timer,
frmMain muss warten bis der Timer abgelaufen ist und erst dann das frmProgress auf Hide setzen.
Mein Problem ist das das Timer-Event nicht ausgelöst wird.
Meine überlegung ist im frmMain mit einer While-Schleife zu warten bis das Timer-Event ausgelöst wir. Leider funktioniert das nicht. Er bleibt bei der While-Schleife stecken.
Wie kann man auf einen Timer "warten" ?
Ein Timer läuft doch im Hintergrund warum läuft dieser in der While-Schleife nicht weiter ?
Delphi-Quellcode:
//frmMain
while FormFtpprogress.canHide = false do
begin
if FormFtpprogress.canHide = true then
FormFtpprogress.Hide;
end;
Delphi-Quellcode:
//frmProgress
procedure TFormFtpprogress.FormShow(Sender: TObject);
begin
canHide := false;
progressTimer.Enabled := true;
end;
procedure TFormFtpprogress.progressTimerTimer(Sender: TObject);
begin
progressTimer.Enabled := false;
canHide := true;
end;
Gruss Int3g3r