Как отключить подсказки в TTreeView?
procedure TForm1.FormShow(Sender: TObject);
const
TVS_NOTOOLTIPS = $0080;
begin
SetWindowLong( Treeview1.Handle, GWL_STYLE,
GetWindowLong( TreeView1.Handle, GWL_STYLE ) xor TVS_NOTOOLTIPS );
end; |