13.04.2010, 23:18
|
 |
Активный
|
|
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
|
|
Примерно так:
Код:
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
Edit1.Text:= ListBox1.Items.Strings[ListBox1.ItemIndex];
end; |