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

← →
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 будет гораздо проще сделать форму, и показывать ее когда нужно и сколько нужно. Дополнительное преимущество: это будет работать одинаково во всех ОС. И украсить можно картинками, шрифтами, и т.д. как заблагорассудится.

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