Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];

Вниз

Listbox & Edit   Найти похожие ветки 

 
Bobby Digital ©   (2004-11-21 04:46) [0]

Подскажите .. как можно сделать так, чтоб при клике на элемент Listbox эта строка (по которой кликнули) появлялась,  например, в Edit


 
KilkennyCat ©   (2004-11-21 05:51) [1]

посмотреть свойства листвокса, который определяет кликнутую строку (ее индеkc) и обратится к этому индексу в списке (items)


 
InfMag ©   (2004-11-21 08:00) [2]

procedure TForm1.ListBox1Click(Sender: TObject);
var i:integer;
begin
i := ListBox1.ItemIndex;
Edit1.Text := ListBox1.Items.Strings[i];
end;


 
Кириешки ©   (2004-11-21 08:03) [3]

Edit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];

и никакие var не нужны


 
InfMag ©   (2004-11-21 08:05) [4]

Кириешки, мне кажется, что с дополнительной переменной будет проще, поскольку может быть либо несколько ListBox"ов, либо несколько Edit"ов.


 
KilkennyCat ©   (2004-11-21 15:28) [5]


> InfMag ©   (21.11.04 08:05) [4]


Это лишь кажется. В данном случае


 
KilkennyCat ©   (2004-11-21 15:28) [6]

этого не нужно.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.042 c
1-1101041756
-=KITA=-
2004-11-21 15:55
2004.12.05
Имя папки, отображённой в shelllistview


1-1100819353
PC
2004-11-19 02:09
2004.12.05
Найти все папки


3-1099553813
Брат
2004-11-04 10:36
2004.12.05
Создание хранимой процедуры программно


3-1099832621
DeepProg
2004-11-07 16:03
2004.12.05
Отобразить Memo поле в DBGrid - вариация на тему


1-1100764397
sadykov
2004-11-18 10:53
2004.12.05
перерисовка ListView и TreeView





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский