Tooltips in TTreeView ausschalten |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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.