Консультация № 109992
18.11.2007, 14:47
0.00 руб.
0 1 1
Здравствуйте, помогите пожалуйста дополнить код программы, чтобы при выборе пункта в компоненте listbox еще значение edit1.text принимало нужное значение.


Приложение:
procedure TForm1.ListBox1Click(Sender: TObject);beginimage1.Visible:=false;image2.Visible:=false;image3.Visible:=false;image4.Visible:=false;image5.Visible:=false;image6.Visible:=false;Case ListBox1.ItemIndex Of0: Image1.Visible:=True;1: Image2.Visible:=True;2: image3.Visible:=true;3: image4.Visible:=true;4: image5.Visible:=true;5: image6.Visible:=true;end;combobox1.Visible:=true;end;

Обсуждение

Неизвестный
20.11.2007, 17:13
общий
это ответ
Здравствуйте, Исаак Моисеевич!

Достаточно добавить в case

edit1.text:= ListBox1.Items.Strings[номер строчки]
Форма ответа