Цитата R.i.m.s.k.y.:
можно примерчик? а то я в этом не силен »
|
Както так (для расширенной версии):
читать дальше »
Код:
var
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
begin
// тут твоя проверка
//после того, как она прошла, выключаем таймер:
Timer1.Enabled := False;
end;
procedure InitializeWizard();
begin
Timer1 := TTimer.Create(WizardForm);
with Timer1 do
begin
Interval := 100;
OnTimer := @Timer1Timer;
Enabled := False;
end;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpSelectDir then Timer1.Enabled := True;
end;