Forçar hint sem mouse

Delphi

08/03/2004

Alguem sabe como forçar aparecer o hint num edit sem que seja passado o mouse por exemplo no envento onenter e so desaparecer quando sair daquele edit?


Cleudsoncosta

Cleudsoncosta

Curtidas 0

Respostas

Valdir.santos

Valdir.santos

08/03/2004

No evento OnEnter:
var sHint: String;
sHint:=´Coloque aqui o seu hint´;
HintRect := HintWindow.CalcHintRect(400,´*´,nil);
HintRect.Top := 27;
HintRect.Left := 270;
HintRect.Right := HintRect.Left + (Length(sHint)*6);
HintRect.Bottom := HintRect.Top + 15;
HintWindow.ActivateHint(HintRect,sHint);

No evento OnExit:
if Assigned(HintWindow) then
HintWindow.ReleaseHandle;

Faça o cálculo do Top e Left de acordo com a posição de cada Edit.

Valdir.


GOSTEI 0
Cleudsoncosta

Cleudsoncosta

08/03/2004

ola essa dica que vc mandou nao funcionou no dephi 7 deu erro de variavel nao declarada nao existe a classe
hintwindown.
nem os comandos :
hintRect


GOSTEI 0
Valdir.santos

Valdir.santos

08/03/2004

Tente declarar estas 2 variáveis:

var
HintRect : TRect;
HintWindow : THintWindow;

Valdir.


GOSTEI 0
POSTAR