
07.03.2015, 07:44
|
 |
Sir Richard Abramson
|
|
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
|
|
Продолжение позерства:
Код:
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
LabeledEdit1.Visible:=True;
LabeledEdit2.Visible:=True;
LabeledEdit3.Visible:=False;
LabeledEdit4.Visible:=false;
LabeledEdit5.Visible:=false;
LabeledEdit6.Visible:=false;
Image1.Visible:=false;
Image1.Picture.LoadFromFile(inttostr(ComboBox2.itemindex)+'.jpg');
LabeledEdit3.Visible:=(ComboBox2.itemindex = 3);
Image1.Visible :=True;
end;
|