"Режим табов для TListView в Delphi: управление выделением элементов"

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

Режим табов для TListView в Delphi: управление выделением элементов

В данной статье мы рассмотрим, как можно использовать компонент TListView из библиотеки VCL (Visual Component Library) в Delphi в качестве табов, где выделение может происходить только одного элемента за раз, аналогично поведению табов. Это может быть полезно для создания пользовательских интерфейсов, где требуется выбор только одного активного элемента из списка.

Проблема выделения элементов

TListView в режиме отображения иконок (vsIcon) по умолчанию позволяет выделять несколько элементов. Однако, если мы хотим использовать его в качестве табов, необходимо отключить возможность множественного выделения, что легко достигается путем отключения свойства Multiselect. Тем не менее, остается проблема: при клике по пустому пространству между иконками и текстом в списке происходит снятие выделения, что нежелательно для режима табов.

Попытка решения

Пользователь предложил следующий код, который пытается решить проблему снятия выделения при клике по пустому пространству:

void __fastcall TForm::ListViewChanging(TObject *Sender, TListItem *Item, TItemChange Change, bool &AllowChange)
{
    if (Change == ctState)
    {
        TPoint CursorRel = ListView->ScreenToClient(Mouse->CursorPos);
        AllowChange = (ListView->GetItemAt(CursorRel.x, CursorRel.y) != NULL);
        StatusBar->SimpleText = (AllowChange)? "YES" : "NO";
    }
}

Код работает, но есть проблема: при клике по пустому месту элемент снимается с выделения, и дальнейшее управление с помощью клавиш стрелки вверх/вниз становится невозможным, хотя визуально элемент все еще выглядит выделенным. Если игнорировать клавиатурное управление, то для выбора с помощью мыши все работает корректно и клики по пустым областям игнорируются.

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

Пользователь также предложил альтернативный подход: перехват сообщения WM_LBUTTONDOWN, отправляемого компоненту, и прекращение стандартной обработки, если клик не приходится на элемент. Пример кода с использованием субклассирования компонента:

type
  TListView = class(comctrls.TListView)
  protected
    procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
  end;

В этом случае, если клик не попадает на элемент, стандартная обработка сообщения не происходит.

Подтвержденное решение

Дополнительное решение, предложенное другим пользователем, включает в себя сохранение и восстановление состояния выделенного элемента. Это позволяет сохранить выделение даже при клике по пустому пространству. Пример кода на Object Pascal:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls;
type
  TForm1 = class(TForm)
    ListView1: TListView;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    procedure ListView1Changing(Sender: TObject; Item: TListItem;
      Change: TItemChange; var AllowChange: Boolean);
    procedure ListView1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ListView1Enter(Sender: TObject);
  private
    FListItem: TListItem;
    procedure SelectedListItemStateSave;
    procedure SelectedListItemStateRestore;
  public
    // ...
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SelectedListItemStateRestore;
begin
  ListView1.Selected := FListItem;
  ListView1.Selected.Focused := True; // Всегда выделено
end;
procedure TForm1.SelectedListItemStateSave;
begin
  FListItem := ListView1.Selected;
end;
procedure TForm1.ListView1Changing(Sender: TObject; Item: TListItem;
  Change: TItemChange; var AllowChange: Boolean);
begin
  if (Change=ctState) then
    SelectedListItemStateSave;
end;
procedure TForm1.ListView1Enter(Sender: TObject);
begin
  if ListView1.Selected = nil then
  begin
    FListItem := ListView1.Items[0]; // Инициализация
    SelectedListItemStateRestore;
  end;
end;
procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ListView1.GetItemAt(X,Y) = nil then
  begin
    SelectedListItemStateRestore;
  end;
end;
end.
// ...

Этот подход позволяет сохранить выделение одного элемента и предотвратить снятие выделения при клике по пустому пространству.

Заключение

Для реализации режима табов в TListView в Delphi, важно управлять выделением элементов так, чтобы было возможно выделение только одного элемента в любое время. Использование перехвата событий и сохранения состояния выделения позволяет достичь желаемого поведения компонента. Это может быть полезно для создания различных пользовательских интерфейсов, где требуется интуитивно понятное управление выделением элементов списка.

Создано по материалам из источника по ссылке.

Краткое описание Context: В статье рассматривается создание режима табов для компонента TListView в Delphi, где выделение может быть только одного элемента за раз, и решается проблема выделения при клике по пустому пространству.

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

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

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