Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Gnom_aka_Lexander

Ветеран


Сообщения: 978
Благодарности: 564

Профиль | Сайт | Отправить PM | Цитировать


Цитата 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;

-------
Я люблю помогать. Но не путайте: "Помогите мне" и "Сделайте за меня" - это совершенно разные понятия.

Это сообщение посчитали полезным следующие участники:

Отправлено: 20:08, 19-03-2012 | #1189