procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var ItemAtCursor: integer;
begin
ItemAtCursor:=ListBox1.ItemAtPos(Point(X, Y), false);
if ItemAtCursor = -1 then
begin
// Нет элемента под курсором
end else begin
// ...
end;
end;
Курсор в ListBox
Кто нибудь знает,как определить номер(Items)и строку в TListBox при наведении курсора мыши в поле TListBox ?:(
Цитата:
Originally posted by Bumer
Кто нибудь знает,как определить номер(Items)и строку в TListBox при наведении курсора мыши в поле TListBox ?:(
Кто нибудь знает,как определить номер(Items)и строку в TListBox при наведении курсора мыши в поле TListBox ?:(
function ItemAtPos(Pos: TPoint; Existing: Boolean): Integer;
Returns the index of the list box item indicated by the coordinates of a point on the control.
Код:
Цитата:
Originally posted by makbeth
function ItemAtPos(Pos: TPoint; Existing: Boolean): Integer;
Returns the index of the list box item indicated by the coordinates of a point on the control.
function ItemAtPos(Pos: TPoint; Existing: Boolean): Integer;
Returns the index of the list box item indicated by the coordinates of a point on the control.
Код:
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var ItemAtCursor: integer;
begin
ItemAtCursor:=ListBox1.ItemAtPos(Point(X, Y), false);
if ItemAtCursor = -1 then
begin
// Нет элемента под курсором
end else begin
// ...
end;
end;
var ItemAtCursor: integer;
begin
ItemAtCursor:=ListBox1.ItemAtPos(Point(X, Y), false);
if ItemAtCursor = -1 then
begin
// Нет элемента под курсором
end else begin
// ...
end;
end;
Всё ОК !!! Определяется.
Большое спасибо !!!!:)