Текущий архив: 2003.09.18;
Скачать: CL | DM;

Вниз

Как вывести 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;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.025 c