Имя пользователя:
Пароль:
 

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

Аватара для mariolast

Ветеран


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

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


Подскажите как сделать. Нужно чтобы на странице выбора компонентов (выбор из ниспадающего списка) при выборе "Сетевая версия" становилось активным поле с вводом текста (cbEdit) а если выбрано "Локальная версия", то чтобы это поле было недоступным.

Мой код

[Types]
Name: local; Description: Локальная версия
Name: network; Description: Сетевая версия

[Components]
Name: local; Description: Локальная версия; Types: local; Flags: exclusive
Name: network; Description: Клиент по сети; Types: network; Flags: exclusive checkablealone

[code]
Var
cbEdit : TEdit;

procedure OnClickCheck(Sender: TObject);
begin
if WizardForm.ComponentsList.Checked[1] then cbEdit.Visible:=false;
if WizardForm.ComponentsList.Checked[2] then cbEdit.Visible:=true;
end;

procedure InitializeWizard();
begin
cbEdit:= TEdit.Create(WizardForm.SelectComponentsPage);
cbEdit.Parent := WizardForm.SelectComponentsPage;
cbEdit.Text := IPServer('1');
cbEdit.Left := ScaleX(16);
cbEdit.Top := ScaleY(68);
cbEdit.Width := ScaleX(165);
cbEdit.Height := ScaleY(124);
cbEdit.Text := IPServer('1');
cbEdit.Font.Color := -16777208;
cbEdit.Font.Height := ScaleY(-13);
cbEdit.Font.Name := 'Tahoma';

WizardForm.ComponentsList.OnClickCheck:=@OnClick
end;

Последний раз редактировалось mariolast, 29-07-2010 в 14:33.


Отправлено: 14:05, 29-07-2010 | #2123