Определить нажатие на CheckBoxe TListView

Delphi , Компоненты и Классы , TListView

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 var
   Item: TListItem;
   HitTest: THitTests;
 begin
   // Welchem Item gehцrt die CheckBox 
  // Which item belongs to the checkbox 
  Item := ListView1.GetItemAt(x, y);

   // Was wurde vom Item genau angeklickt 
  // What kind of thing was hit on the item 
  HitTest := ListView1.GetHitTestInfoAt(x, y);

   // Falls ein Item angeklickt wurde und davon die Checkbox 
  // If an Item was hit and exactly his checkbox 
  if (Item <> nil) and (HitTest = [htOnStateIcon]) then
   begin
     //////////////////////////////// 
    // Hier das OnCheck behandeln // 
    // Handle OnCheck here        // 
    //////////////////////////////// 
    // Beispiel 
    // Example 
    // 
    //  if Item.Checked = False then 
    //  begin 
    //    if (Item.Index = 0) or (ListView1.Items.Item[Item.Index - 1].Checked = True) then 
    //      Item.Checked := True else Item.Checked := False; 
    //  end else 
    //    begin 
    //    if (Item.Index = ListView1.Items.Count - 1) or (ListView1.Items.Item[Item.Index + 1].Checked = False) then Item.Checked := False else 
    //      Item.Checked := True; 
    //  end; 
  end;
 end;

Код, предоставленный ниже, является процедурой в Delphi, которая обрабатывает событие MouseUp для контрола TListView, именуемого ListView1. Цель этой процедуры - определить, когда чекбокс на элементе списка был кликнут.

Вот шаг за шагом, что код делает:

1. Он получает объект TListItem, связанный с точкой, где была кликнута мышь (x, y), используя метод GetItemAt.
2. Затем он использует метод GetHitTestInfoAt, чтобы определить, какой часть элемента был ударен (например, чекбокс).
3. Если элемент был ударен и чекбокс был кликнут именно в этом месте, код enters блок begin...end, где обрабатывается событие OnCheck.
4. Внутри этого блока есть пример реализации обработки состояния чекбокса. Он проверяет, является ли текущий кликнутый элемент checked или unchecked, и затем обновляет его состояние в зависимости от некоторых условий.

В целом, этот код позволяет обнаруживать, когда чекбокс на элементе списка был кликнут, и обрабатывать его состояние соответствующим образом.

Альтернативное решение:

Вместо переопределения события MouseUp, можно использовать событие OnCheck контрола TListView. Это событие вызывается всякий раз, когда изменяется checked-статус элемента. Затем можно проверить, какой элемент был изменен, и обновить его состояние, как нужно.

Вот, как это сделать:

1. В коде вашей формы создайте процедуру для события OnCheck:

procedure TForm1.ListView1CheckItem(Sender: TObject; Item: TListItem; NewCheckedState: Boolean);
begin
   // Обрабатывайте изменение checked-статуса здесь
end;

1. Затем можно получить элемент, который был checked (или unchecked), и обновить его состояние, как нужно.

Эта подход более элегантен и легче поддерживать, чем переопределение события MouseUp.

Определить нажатие на чекбокс в TListView с помощью процедуры TForm1.ListView1MouseUp, которая проверяет, был ли нажат чекбокс конкретного элемента списка.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TListView ::