Home » Tipps & Tricks » Komponenten » TTreeView/TListView » Tooltips in TTreeView ausschalten

Tooltips in TTreeView ausschalten

Standardmäßig zeigt die TTreeView-Komponente zu jedem Node, den die Maus überfährt, einen sog. Tooltip. Dieses Hint-Fenster wird auch angezeigt, wenn der Tooltip keine überlange Breite hat.Ab Delphi 4 gibt es die Eigenschaft ‚Tooltips‘ mit der sich das Verhalten steuern lässt. In Delphi 2 und 3 ist sie noch nicht implementiert. Folgende Prozedur übernimmt diese Aufgabe:

procedure SetTreeViewToolTip(const Tree: TCustomTreeView; AShow: Boolean);
var
  WindowLong: Integer;
const
  TVS_NOTOOLTIPS = $80;
begin
  WindowLong:=GetWindowLong(Tree.Handle, GWL_STYLE);

  if AShow then
    WindowLong:=WindowLong and not TVS_NOTOOLTIPS
  else
    WindowLong:=WindowLong or TVS_NOTOOLTIPS;

  SetWindowLong(Tree.Handle, GWL_STYLE, WindowLong);
end;

Sie erwartet als ersten Parameter den Baum. Steht der zweite Parameter auf True werden die Tooltips angezeigt, ansonsten werden sie versteckt.