| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как сделать хинт в роли оповещающих сообщений?

Revolter ©   (2003-10-26 18:37:00) 

помогите, плиз:
хочу сделать так, чтобы при выполнении каких-либо действий программа оповещала пользователя всплывающем на несколько секунд хинтом.
под VCL делал так:

type

Tmyhint = class(THintWindow)
 constructor create(AOwner: TComponent);
 procedure showmyhint(cap:string; x,y:integer);
 procedure hidemyhint(Sender: TObject);
end;

var hintTimer: TTimer;

implementation

constructor Tmyhint.create(AOwner: TComponent);
begin
    inherited Create(AOwner);
    Color:=clInfoBk;
    hintTimer:=TTimer.Create(AOwner);
    hintTimer.OnTimer:=hidemyhint;
end;

procedure Tmyhint.showmyhint(cap:string; x,y:integer);
var r:TRect;
begin
    r:=CalcHintRect(600,cap,Nil);
    r.TopLeft.x:=x;
    r.TopLeft.y:=y;
    r.Bottomright.x:=r.Bottomright.x+r.TopLeft.x;
    r.Bottomright.y:=r.Bottomright.y+r.TopLeft.y;
    ActivateHint(r,cap);
    if length(cap)*80<maxhinttime then hintTimer.Interval:=length(cap)*80 else hintTimer.Interval:=maxhinttime
end;

как реализовать подобное в KOL?

---

Vladimir Kladov   (2003-10-27 07:08:00) [1]

В KOL будет гораздо проще сделать форму, и показывать ее когда нужно и сколько нужно. Дополнительное преимущество: это будет работать одинаково во всех ОС. И украсить можно картинками, шрифтами, и т.д. как заблагорассудится.

---

mike.dld   (2003-10-27 00:40:00) [2]

mhToolTip не помогает?

---

Наверх