Цитата 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.
Забываем про знаки ';' в конце строк...