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

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

← →
vis1979   (2003-10-14 12:07) [0]

Подскажите пожалуйста,
как программным способом вывести hint возле указателя мыши,
(или по указанным координатам) или некоторую надпись в виде
hint"a, только не с помошью рисования на канвасе???

---

← →
Семен Сорокин ©   (2003-10-14 12:09) [1]

Application.ActivateHint

---

← →
Rouse_ ©   (2003-10-14 13:09) [2]

THintWindow.Create

Желаю успехов

---

← →
vis1979   (2003-10-14 13:45) [3]

Спасибо всем ответившим, с учетом ваших ссылок вот что у меня получилось:

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
S : String;
begin
S := "привет";
if not assigned(HW) then
begin
HW := THintWindow.Create(form1);
HW.Color := $00C2F8F7;
HW.ActivateHint(Rect(X,Y,X+7+Canvas.TextWidth(S),Y+Canvas.textHeight(S)),S);
end;
end;

procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
HW.ReleaseHandle;
HW := nil;
end;

вопрос в том что этот код не закрывает окошечко хинта автоматически, а как сделать так чтобы это происходило??

---

← →
Семен Сорокин ©   (2003-10-14 14:42) [4]

2vis1979
вопрос в том что этот код не закрывает окошечко хинта автоматически, а как сделать так чтобы это происходило??
делай это по таймеру или на MouseLeave

---

← →
vis1979   (2003-10-15 11:41) [5]

> Семен Сорокин
> делай это по таймеру или на MouseLeave

по таймеру закрывать очень не прикольно, возможно ли вообще получить доступ к системным хинтам? вызвать процедуру навроде
ShowHint(координаты, текст) и чтобы этот хинт вел себя как
хинт который всплывает при наведении мыши на системную кнопку
закрытия окна.

---

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

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



Память: 0.46 MB
Время: 0.015 c