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

Вниз

Как отловить нажатие по элементу ListBox а?   Найти похожие ветки 

← →
_sMile   (2003-05-20 20:46) [0]

Как отловить нажатие по элементу ListBox"а?

---

← →
Романов Р.В. ©   (2003-05-20 20:52) [1]

OnMouseDown
OnClick

---

← →
Palladin ©   (2003-05-20 20:54) [2]

интересно, а автор вообще в курсе что есть вкладка Events

---

← →
Zz_   (2003-05-20 20:57) [3]

procedure TfMain.WndProc(var Mes:TMessage);
begin
if(Mes.Msg=WM_COMMAND)then begin
if(Mes.WParamHi=LBN_SELCHANGE)then begin
ListBox.Items.Add("Index = "+IntToStr(SendMessage(Mes.LParam,LB_GETCURSEL,0,0)));
end else
if(Mes.WParamHi=LBN_DBLCLK)then begin
ListBox.Items.Add("Index = "+IntToStr(SendMessage(Mes.LParam,LB_GETCURSEL,0,0)));
end;

---

← →
AbrosimovA   (2003-05-23 12:59) [4]

procedure TMainForm.ListBox1DblClick(Sender: TObject);
var Num: integer;
String1: string;
begin
Num:=ListBox1.ItemIndex;//Индех строки по которой нажали дважды
String1:=ListBox.Items.Strings[Num]//Присвоить содержимого
выбр.строки строковой
переменной
ListBox1.DeleteSelected;//Удаление выбранной строки
end;

---

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

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

Наверх

Память: 0.47 MB
Время: 0.013 c