segunda-feira, 23 de novembro de 2009

Como eliminar os hints de uma treeview

Procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowLong(TreeView1.Handle, GWL_STYLE,
GetWindowLong(TreeView1.Handle,GWL_STYLE) or $80);
end;

//para mostrar os hints novamente

SetWindowLong(TreeView1.Handle, GWL_STYLE,
GetWindowLong(TreeView1.Handle,GWL_STYLE) and not $80);

Nenhum comentário:

Postar um comentário