Скачать: CL | DM;

ListBox1MouseUp как узнать на каком items кликнули ?   Найти похожие ветки 

← →
k-sergey   (2004-08-08 10:20) [0]

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

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

---

← →
Кириешки ©   (2004-08-08 10:44) [1]

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

---

← →
k-sergey ©   (2004-08-08 10:53) [2]

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

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;

---

← →
Goorus ©   (2004-08-08 11:04) [3]

Ага, а если шрифт изменится, будешь заново значения подбирать?
Может лучше воспользуешься функцией 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 11:08) [4]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c