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;
case ComboBox2.itemindex of
0: begin
Image1.Picture.LoadFromFile('1.jpg');
end;
1: begin
Image1.Picture.LoadFromFile('2.jpg');
end;
2: begin
Image1.Picture.LoadFromFile('2.jpg');
end;
3: begin
Image1.Picture.LoadFromFile('3.jpg');
LabeledEdit3.Visible:=True;
end;
end;
Image1.Visible :=True;
end;
08.03.2015, 19:12
Комбинированный вид
