Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Курсор в ListBox

7.1K
20 января 2005 года
Bumer
33 / / 17.01.2005
Кто нибудь знает,как определить номер(Items)и строку в TListBox при наведении курсора мыши в поле TListBox ?:(
303
21 января 2005 года
makbeth
1.0K / / 25.11.2004
Цитата:
Originally posted by Bumer
Кто нибудь знает,как определить номер(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.

Код:
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;
7.1K
21 января 2005 года
Bumer
33 / / 17.01.2005
Цитата:
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.

Код:
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;


Всё ОК !!! Определяется.
Большое спасибо !!!!:)

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог