OT: Aplikace v Delphi v systray

[RV]

Zdravim,

omlouvam se za OT, ale kolega si chce napsat malou aplikaci na 
zjistovani stavu na web serveru tak aby bezela v systray a pri najeti 
mysi vyskocilo male okynko na systray a tam se zobrazila odpoved ze serveru.

Cele to ma rozbehane a i mu vyskoci to okenko, ale nejak se mu nedari 
ukocirovat na zaklade jake udalosti se to ma pozavirat.

Nejsem si, ale jisty zda se vydal spravnym smerem a nejsem schopen mu 
rict zda to tak je dobre (treba proc se pri vyskoceni okan zobrazi dole 
na panelu objevi spusteny formular):

S Delphi nepracuji a tak nejsem schopny poradit. Zde je kod kterym 
zpracovava udalosti od mysi:

procedure TForm1.WMTRAYAPPNOTIFY(var M:Tmessage);
var p:TPoint;
begin
   with m do
     case lParam of

     WM_RBUTTONUP: begin
                     GetCursorPos(p);
                     Popupmenu1.popup(p.x,p.y);
                   end;
     WM_MOUSEMOVE: begin
                     GetCursorPos(p);
                     Form1.Top:=p.y-120;
                     Form1.Left:=p.x-200;
                     Form1.visible:=true;
                   end;
     end;
end;

Pokud by nekdo mel nejaky priklad nebo mohl poradit jak se to dela 
spravne moc by mu to pomohlo.

-- 
Radek Vicek