Форум: "Основная";
Текущий архив: 2003.10.27;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.016 c