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

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

Ветеран


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

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


Цитата Drongo:
С первым пунктом мне кажется можно так, но я не уверен: »
Я тоже не уверен на все сто, но помоему так.
Цитата Drongo:
А вот со вторым пунктом, чтобы сделать активную кнопку при любом раскладе, не знаю где... »
Можно просто удалить WizardForm.NextButton.Enabled:= False и WizardForm.NextButton.Enabled:= True, т.е.:
читать дальше »
Код: Выделить весь код
...
if ChangeText = True then
    begin
      TopText.Top := 0;
      TopText.Caption := 'Не все компоненты удовлетворяют минимальным требованиям программы.' + #13 +
                         'Пожалуйста, проверьте позиции, выделенные красным цветом.';
      TopText.Font.Color := clRed;
    end
  else
    begin
      TopText.Caption := 'Все компоненты соответствуют минимальным требованиям программы.';
      TopText.Font.Color := clGreen;
      TopText.Top := 8;
    end;
end;
...


P.S.
Забываем про знаки ';' в конце строк...

-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.

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

Отправлено: 22:10, 29-07-2009 | #1173