Отключить подсказки для TTreeView

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

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

{ 
  If you have installed the Internet Explorer 4.0 or high, in TTreeView component 
  always displaying a hint for cutted items. It's useful but sometimes prevents and 
  irritates (at least, me). But there is a simple way to switch off this feature: 
}

 procedure TForm1.FormShow(Sender: TObject);
 const
   TVS_NOTOOLTIPS = $0080;
 begin
   SetWindowLong(Treeview1.Handle, GWL_STYLE,
     GetWindowLong(TreeView1.Handle, GWL_STYLE) xor TVS_NOTOOLTIPS);
 end;

Перевод:

Код-ответ на отключение подсказок (или подсказок) в компоненте TTreeView в Delphi.

Проблема с этим подходом заключается в том, что он использует низкоуровневую функцию Windows API SetWindowLong и константы из Windows API. Это делает код платформозависимым и может не работать на всех платформах или версиях Windows.

Более современный и дельфийский способ достичь этого результата - использовать свойство TreeView.Style и установить его в tvStyleNoTooltips.

Вот как это можно сделать:

procedure TForm1.FormShow(Sender: TObject);
begin
  TreeView1.Style := TreeView1.Style xor [tvStyleNoTooltips];
end;

Этот код более дельфийский и не зависит от низкоуровневых функций Windows API, что делает его более портативным на различных платформах и версиях Delphi.

Кроме того, оригинальный код-ответ использует событие FormShow для отключения подсказок. Если вы хотите отключить подсказки только для конкретного компонента TTreeView, вы можете использовать события OnCreate или OnChange вместо этого.

Отключить подсказки для TTreeView можно с помощью процедуры TForm1.FormShow(Sender: TObject), которая изменяет стиль компонента Treeview1 с помощью функции SetWindowLong и константы TVS_NOTOOLTIPS.

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

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