Вниз
Скачать: CL | DM;

Как показать и скрыть hint объекта Shape когда надо   Найти похожие ветки 

← →
INTAARI   (2004-07-05 12:49) [0]

Добрый день!!!
нашел в документации, показ hint процедурой

application.ActivateHint(point(х,y));

но на форме никакого hintа не видно.
Может нужно использовать дополнительные процедуры?


← →
pasha_golub ©   (2004-07-05 12:57) [1]

Application.ShowHint := true;


← →
INTAARI   (2004-07-05 13:06) [2]


> pasha_golub ©   (05.07.04 12:57) [1]
> Application.ShowHint := true;


application.ActivateHint(point(50,50));
Application.ShowHint := true;

На форме его все равно нет


← →
pasha_golub ©   (2004-07-05 13:32) [3]

Application.ShowHint := true;
В начале программы, например, при создании главной формы.


← →
Cosinus ©   (2004-07-05 13:37) [4]

Application.ShowHint := true;
Должно быть ПЕРЕД тем, как вы выводите Hint


← →
INTAARI   (2004-07-05 13:55) [5]


> pasha_golub ©   (05.07.04 13:32) [3]
> Application.ShowHint := true;
> В начале программы, например, при создании главной формы.
>
>
> Cosinus ©   (05.07.04 13:37) [4]
> Application.ShowHint := true;
> Должно быть ПЕРЕД тем, как вы выводите Hint


procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Hint:="sdfsdfsdf";
Application.ShowHint := true;
application.ActivateHint(point(50,50));
end;


Без перемен!!!


← →
INTAARI   (2004-07-05 14:52) [6]

и тишина!!!


← →
pasha_golub ©   (2004-07-05 15:53) [7]

Полный код давай!


← →
INTAARI   (2004-07-05 16:21) [8]


> pasha_golub ©   (05.07.04 15:53) [7]
> Полный код давай!

весь пробный код в [5]


← →
INTAARI   (2004-07-05 16:22) [9]

Этот код для чтобы понять последовательность действий.


← →
pasha_golub ©   (2004-07-05 16:23) [10]


procedure TForm1.FormCreate(Sender: TObject);
begin
Hint:="sdfsdfsdf";
Application.ShowHint := true;
//application.ActivateHint(point(50,50));
end;



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.035 c
4-1086661953
simpl
2004-06-08 06:32
2004.07.18
приложение, ассоциированное с расширением файла


1-1089156505
killer
2004-07-07 03:28
2004.07.18
Ошибка при Cursor =crLinkSelect


6-1085246342
AndersoNRules
2004-05-22 21:19
2004.07.18
SMTP & TSocketComponent


14-1088153833
Fikus
2004-06-25 12:57
2004.07.18
Вопрос по Photoshop


14-1088510327
VictorT
2004-06-29 15:58
2004.07.18
Что за ошибка? 509 - Bandwidth Limit Exceeded




   Наверх