Как вывести Hint`ы в отдельное поле

← →
Armaniak © (2003-09-05 07:37) [0]

Следующий код почему-то не работает
procedure TfrmInsInc.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (X>=(Sender as TControl).Left) and
(X<=((Sender as TControl).Left+(Sender as TControl).Width)) and
(Y>=(Sender as TControl).Top) and
(Y<=((Sender as TControl).Top+(Sender as TControl).Height)) then
label6.Caption:=(Sender as TWinControl).Hint;
end;

Поскажите где прокол

← →
Hooch © (2003-09-05 08:05) [1]

кинь на форму TApplicationEvents, на OnShowHint напиши
label6 := HintStr и будет сказка :-)

← →
Armaniak © (2003-09-05 08:24) [2]

Спасибо :)

← →
Armaniak © (2003-09-05 08:24) [3]

Спасибо :)

← →
Olvin © (2003-09-05 09:10) [4]

Еще сказочнее было бы если бы можно было при этом не показывать Hint`ы у самого объекта...

← →
Hooch © (2003-09-05 09:24) [5]

в том же событии CanShow := false;

← →
Armaniak © (2003-09-05 10:38) [6]

Дополнительный вопрос как при получении контролом фокуса отображать его Hint.

← →
Hooch © (2003-09-05 10:42) [7]

а он не отображается ???

Когда переходишь по табуляции или клавишами не хотит.

можно так
procedure TForm1.FormCreate(Sender: TObject); begin Screen.OnActiveControlChange := ShowHint; end; procedure TForm1.ShowHint(Sender: TObject); begin Lable1 := Screen.ActiveControl.Hint; end; procedure TForm1.FormDestroy(Sender: TObject); begin Screen.OnActiveControlChange := nil; end;

Как вывести Hint`ы в отдельное поле Найти похожие ветки