tray icon popup menu yerine form açmak

[reyhan]

Merhabalar

Ben programımda tray ikon'da mause sağ click olayında popup menu yerine form açılmasını istiyorum
bunu nasıl yapabilirim acaba teşekkürler..

[reyhan]

Bu şekilde çözdüm arkadaşlar belki birinin işine yarar herkese teşşekürler.

Kod: Tümünü seç

procedure TForm1.CoolTrayIcon1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
p: TPoint;
i: integer;
begin
if Button = mbRight then
begin
Form2.Show;
end;
end;