Хинт

← →
able (2003-11-06 20:13) [0]

Как заставить появиться хинт в определённом месте (например в правом верхнем углу экрана)

← →
Mike_Goblin (2003-11-06 21:39) [1]

1. Положить на форму компонент ApplicationEvents
2. В обработчике ShowHint этого компонента написать код
procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;
var CanShow: Boolean; var HintInfo: THintInfo);
begin
CanShow:=true;
HintInfo.HintPos:=Point(Screen.WorkAreaWidth - Self.Canvas.TextWidth(HintStr),0);
end;
3. К Новому Году буду в Вашем городе. (конфеты не пью!!! :))) )

← →
Ломброзо (2003-11-06 21:44) [2]

1. Не класть на форму компонент Application Events
2. Создать экземпляр THintWindow и изобразить оный где нужно
3. А конфеты, которые не пьет Mike_Goblin, вышлите по факсу!

Хинт Найти похожие ветки