Содержание материала

 

Метод GetItemAt позволяет получить координаты ListItem, по которой был клик, но только для первой колонки TListView. Если нужно узнать по какому элементу из другой колонки кликнул пользователь, то прийдётся объявить новый метод в наследованном классе:

Code:

uses ComCtrls;

 

type

TListViewX = class(TListView)

public

   function GetItemAtX(X, Y: integer; var Col: integer): TListItem;

end;

 

implementation

 

function TListViewX.GetItemAtX(X, Y: integer;

   var Col: integer): TListItem;

var

i, n, RelativeX, ColStartX: Integer;

ListItem: TlistItem;

begin

Result := GetItemAt(X, Y);

if Result <> nil then begin

   Col := 0; // Первая колонка

end else if (ViewStyle = vsReport)

     and (TopItem <> nil) then begin

   // Первая, попробуем найти строку

   ListItem := GetItemAt(TopItem.Position.X, Y);

   if ListItem <> nil then begin

     // Теперь попробуем найти колонку

     RelativeX := X-ListItem.Position.X-BorderWidth;

     ColStartX := Columns[0].Width;

     n := Columns.Count - 1;

     for i := 1 to n do begin

       if RelativeX < ColStartX then break;

       if RelativeX <= ColStartX +

           StringWidth(ListItem.SubItems[i-1]) then

       begin

         Result := ListItem;

         Col := i;

         break;

       end;//if

       Inc(ColStartX, Columns[i].Width);

     end;//for

   end;//if

end;//if

end;

 

А вот так выглядит событие MouseDown:

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить