25.04.2010, 21:38
|
Местный
|
|
Регистрация: 29.10.2009
Сообщения: 446
Репутация: 271
|
|
Код:
procedure TForm1.ComboBox2Select(Sender: TObject);
begin
if (Form1.ComboBox2.Text='Неметаллическая') then
begin
with Form1.ComboBox3 do
begin
BeginUpdate;
Clear;
Add(Паронит);
EndUpdate;
end;
end
else
with Form1.ComboBox3 do
begin
BeginUpdate;
Clear;
Add('Алюминий');
Add('Латунь');
Add('Сталь');
EndUpdate;
end;
end;
|