Hint въпрос
5 отговора
117 прегледа
Re: Hint въпрос
A как мога да активирам Hint-a на един Edit например без мишката да е върху него а като натисна един бутон. Нещо подобно май имаше и някъде в windowz
Пояснения ;-)))
Вместо да активираш Hint-a можеш да създадеш HintWindow - с текст hint от контролата ;-)))
var hWnd: THintWindow;
rect: TRect;
hintTxt : string;
begin
x:= 10;
y:=10; //towa sa koordinatite za pokazwane na prozoreca - ako iskash mozesh da naprawish po slozno iz4islenie taka 4e hint- a da se padne do kontrolata
HintTxt := Edit1.Hint;
if hintTxt <> '' then
begin
rect := hintWnd.CalcHintRect( Screen.Width, hinttxt, nil);
rect.Left := rect.Left + x;
rect.Right := rect.Right + x;
rect.Top := rect.Top + y;
rect.Bottom := rect.Bottom + y;
hWnd.ActivateHint( rect, hinttxt);
end;
end;
---
Е т'ва е живот!
var hWnd: THintWindow;
rect: TRect;
hintTxt : string;
begin
x:= 10;
y:=10; //towa sa koordinatite za pokazwane na prozoreca - ako iskash mozesh da naprawish po slozno iz4islenie taka 4e hint- a da se padne do kontrolata
HintTxt := Edit1.Hint;
if hintTxt <> '' then
begin
rect := hintWnd.CalcHintRect( Screen.Width, hinttxt, nil);
rect.Left := rect.Left + x;
rect.Right := rect.Right + x;
rect.Top := rect.Top + y;
rect.Bottom := rect.Bottom + y;
hWnd.ActivateHint( rect, hinttxt);
end;
end;
---
Е т'ва е живот!