如何禁止TreeView的ToolTip

字体大小: 中小 标准 ->行高大小: 标准 中 大 
procedure TForm1.FormShow(Sender: TObject);

const

TVS_NOTOOLTIPS = $0080;

begin

SetWindowLong(Treeview1.Handle, GWL_STYLE,

GetWindowLong(TreeView1.Handle, GWL_STYLE) xor TVS_NOTOOLTIPS);

end;

此文章由 http://www.ositren.com 收集整理 ,地址为: http://www.ositren.com/htmls/68188.html