| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ListBox1MouseUp как узнать на каком items кликнули ? [D6, WinXP]

k-sergey ©   (2004-08-08 10:20:00) 

ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);

как узнать на каком items кликнули (получить его номер) ?

---

k-sergey   (2004-08-08 11:08:00) [1]

:-) поэтому и спросил :-)
Спасибо.

---

Goorus   (2004-08-08 11:04:00) [2]

Ага, а если шрифт изменится, будешь заново значения подбирать?
Может лучше воспользуешься функцией ItemAtPos?

procedure TForm1.FileListBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
 if (Button=mbRight) and (FileListBox1.Count>=1) then
 begin
   FileListBox1.ItemIndex:=FileListBox1.ItemAtPos(Point(X,Y), true)
   Label17Click(self);
 end;
end;


---

k-sergey   (2004-08-08 10:53:00) [3]

Во, я так сделал :-)

procedure TForm1.FileListBox1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var e:integer;
begin
if (Button=mbRight) and (FileListBox1.Count>=1) then
begin
 e:=round((y/20)+0.5);
 FileListBox1.ItemIndex:=e-1;
 Label17Click(self);
end;

---

Кириешки   (2004-08-08 10:44:00) [4]

var
i : integer;
s : string;
begin
i := Listbox1.itemindex; //это номер пэлемента
s := listbox1.items[i]; // это текст элемента
end;

---

Наверх