Форум: "Основная";
Текущий архив: 2003.09.18;
Скачать: [xml.tar.bz2];
Вниз
Как вывести 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]а он не отображается ???
← →
Armaniak (2003-09-05 10:56) [8]Когда переходишь по табуляции или клавишами не хотит.
← →
Armaniak (2003-09-05 10:56) [9]Когда переходишь по табуляции или клавишами не хотит.
← →
Hooch (2003-09-05 11:35) [10]можно так
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.18;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c
