Текущий архив: 2003.04.17;
Скачать: CL | DM;
Вниз
Как програмно показать Hint... Найти похожие ветки
← →
AlexMax © (2003-04-04 21:59) [0]Народ!!! Хотелось бы знать как програмно показать Hint.
И очень хотелось бы хоть маленький примерчик (например на TButton).
А то смотрел THintWindow... разобраться не смог.
← →
jack128 © (2003-04-04 22:37) [1]
with ThintWindow.Create(nil) do
try
ActivateHint(Rect,"MyHint");//Показать hint в прямоугольнике Rect
....
ReleaseHandle;// Скрыть hint;
finally
Free;
end;
← →
лоханчушка (2003-04-05 00:22) [2]2jack128
написал в OnMouseMove ... прямоугольник постоянно перерисовывается ... в каком событии писать??
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var
rect:trect;
begin
with rect do begin
Left:=30;
Top:=30;
Right:=200;
Bottom:=200;
end;
with ThintWindow.Create(nil) do
try
ActivateHint(Rect,"MyHint");
ReleaseHandle;
finally
Free;
end;
← →
___ALex___ © (2003-04-05 00:37) [3]вспомни когда показывается хинт
там сам догонишь
← →
jack128 © (2003-04-05 00:38) [4]мда....
Когда тебе нужно показать hint??? Когда его нужно скрыть???
Ты при движении мыши показываешь hint и тут ж его скрываешь, поэтому этот hint постоянно и перерисововается...
А вообще нужно не только Copy&Paste заниматься, но и в код вдумоваться, я ж всево лишь пример написал, не пригодный к употриблению...
TForm1 = class(TForm)
private
{ Private declarations }
MyHint : THintWindow;
public
{ Public declarations }
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MyHint := ThintWindow.Create(Self);
end;
procedure TForm1.XXX(Sender: TObject);
var Rect : Trect;
begin
...
MyHint.ActivateHint(Rect,"MyHint");
end;
procedure TForm1.XXX(Sender: TObject);
begin
MyHint.ReleaseHandle;
end;
← →
jack128 © (2003-04-05 00:40) [5]sorry за орфографию :-(
← →
Palladin © (2003-04-05 01:00) [6]"Моему пределу нет возмущенья"(С) Я
когда кипишь орфография прощается :)
← →
gek © (2003-04-05 01:32) [7]Несмотря на вышесказанное,
позволю Вас отнести к И.Шевченко
см его комопонент на сайте Королевстве
мне показалось,что это исчарпывающий ответ на все ваши воросы
Страницы: 1 вся ветка
Текущий архив: 2003.04.17;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.016 c
