Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.08.14;
Скачать: CL | DM;

Вниз

выбор на listbox-e   Найти похожие ветки 

 
Mangoost   (2005-07-27 03:09) [0]

например у меня на listbox ест 10 имен, хочу чтобы когда выбераю 3 ( напр имя Лаурен) то это имя проявился на Label-e,если 5 то на Label-e 5 имя


 
Джо ©   (2005-07-27 03:22) [1]

Заведи процедурку синхронизации

procedure SynchronizeListAndLabel (AListBox: TListBox; ALabel: TLabel);
begin
 if AListBox.ItemIndex <> -1 then
   ALabel.Caption := AListBox.Items[AListBox.ItemIndex]
end;


В обработчике OnClick твоего ЛистБокса вызывай ее:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 SynchronizeListAndLabel(ListBox1,Label1);
end;


 
ЮЮ ©   (2005-07-27 03:22) [2]

если Listbox.ItemIndex > -1, то содержимое берем в  
Listbox.Items[Listbox.ItemIndex].

P.S. А зачем ещё и  Label лепить? Может лучше TComboBox использовать? В свёрнутом состоянии компактен как Label и позволяет выбирать из спмска, как Listbox?


 
mangoost   (2005-07-27 03:35) [3]

pasiba druzya,viruchili!



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

Текущий архив: 2005.08.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.065 c
4-1118681911
Expl
2005-06-13 20:58
2005.08.14
Вопрос по активности окон


4-1118846713
Jedi
2005-06-15 18:45
2005.08.14
Инициация сообщения WM_NCPAINT


14-1122290680
Копир
2005-07-25 15:24
2005.08.14
Хорошая новость.


1-1122470768
Juice
2005-07-27 17:26
2005.08.14
Директива-аналог "stop on delphi exceptions"


3-1120471111
Yurisimus
2005-07-04 13:58
2005.08.14
Верхний регистр в ADOQuery