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;

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

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