Форум: "Основная";
Текущий архив: 2003.04.17;
Скачать: [xml.tar.bz2];

Вниз

Как програмно показать 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;
Скачать: [xml.tar.bz2];

Наверх

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