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

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

← →
Revolter   (2003-10-26 18:37) [0]

помогите, плиз:
хочу сделать так, чтобы при выполнении каких-либо действий программа оповещала пользователя всплывающем на несколько секунд хинтом.
под 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?

---

← →
mike.dld ©   (2003-10-27 00:40) [1]

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

---

← →
Vladimir Kladov   (2003-10-27 07:08) [2]

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

---

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

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



Память: 0.45 MB
Время: 0.034 c