I
import
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormShow(Sender: TObject);
const
TVS_NOTOOLTIPS = $0080;
begin
SetWindowLong(Treeview1.Handle, GWL_STYLE,
GetWindowLong(TreeView1.Handle, GWL_STYLE) xor TVS_NOTOOLTIPS);
end;
const
TVS_NOTOOLTIPS = $0080;
begin
SetWindowLong(Treeview1.Handle, GWL_STYLE,
GetWindowLong(TreeView1.Handle, GWL_STYLE) xor TVS_NOTOOLTIPS);
end;