Как убрать всплывающие подсказки в TreeView

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

Автор: Eugene Mayevski

TCustomTreeView.WMNotify. О том, что такое тип notify'а TTM_NEEDTEXT пpочтешь в хелпе. Убpать хинты можно, пеpекpыв обpаботчик для этого уведомительного сообщения.

Here is the translation of the content into Russian:

Хорошая вопрос! Проблема в том, что у вашего контроля TCustomTreeView отправляется уведомление TTM_NEEDTEXT, и вы хотите отключить эти подсказки (также называемые подсказками). Для этого вам нужно обработать сообщение WM_NOTIFY в родительском окне вашего дерева.

Вот пример, как это можно сделать:

type
  TMyTreeView = class(TCustomTreeView)
    procedure WMNotify(var Message: TWMNotify); message WM_NOTIFY;
  end;

procedure TMyTreeView.WMNotify(var Message: TWMNotify);
begin
  if (Message.Header.hdr.code = TTM_NEEDTEXT) then
    Message.Result := 0; // Отключить подсказку
end;

В этом примере мы переопределяем сообщение WM_NOTIFY в нашем классе дерева. Мы проверяем, является ли уведомление типа TTM_NEEDTEXT, и если да, то устанавливаем свойство Result в 0, что эффективно отключает подсказку.

Обратите внимание, что вам нужно использовать класс с конкретной процедурой окна (например, TForm) как родителя вашего контроля дерева. Это потому, что сообщение WM_NOTIFY отправляется в родительское окно, а не в само контроле.

Альтернативно, вы можете также обработать уведомление TTM_NEEDTEXT в событии OnNotify вашего дерева:

procedure TForm1.MyTreeViewNotify(Sender: TObject; var Message: TWMNotify);
begin
  if (Message.Header.hdr.code = TTM_NEEDTEXT) then
    Message.Result := 0;
end;

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

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

В статье рассматривается способ удаления всплывающих подсказок в TreeView, который достигается с помощью обработчика для уведомительного сообщения типа TTM_NEEDTEXT.

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

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

:: Главная :: TTreeView ::