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.
