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

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

Пользователь


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

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


LinkOFF, подружитесь с английским языком и/или словариком
у вас 2 процедуры с одинаковым названием, чего быть не должно, поэтому и ошибка
в поцедуру - procedure CurStepChanged(CurStep: TSetupStep);
добавьте код
Код: Выделить весь код
if CurStep = ssDone and MyError then begin
    LabelTime3.Hide;
    WizardForm.Caption:= ExpandConstant('{cm:Error}');
    WizardForm.FinishedLabel.Font.Color:= clRed;
    WizardForm.FinishedLabel.Caption:= SetupMessage(msgSetupAborted) ;
end;
а этот кусок можно будет удалить
Код: Выделить весь код
Procedure CurPageChanged(CurPageID: Integer);
Begin
  if (CurPageID = wpFinished) and MyError then
  begin
    LabelTime3.Hide;
    WizardForm.Caption:= ExpandConstant('{cm:Error}');
    WizardForm.FinishedLabel.Font.Color:= clRed;
    WizardForm.FinishedLabel.Caption:= SetupMessage(msgSetupAborted) ;
  end;
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 17:12, 02-06-2011 | #1715