Programı Traydaki ikondan kapatmak

[gkimirti]

once isleyisi izah edeyim:
rxtray bileseni kullanılarak programı kapatmak istiyorum ama...
program gorunurken trayicon yok bu durumda iken sistem menudeki kapat isaretine basınca programı tray a atacak ve sadece traydaki popupmenuden kapat dedigi zaman kapatacak
bilenler icin soyluyorum aynen FlashGet teki gibi

[gkimirti]

ugrasırken cozdum
glabal bir degisken tanımladım
fGizle:Boolean;

ilk degeri True ya ayarlanır

CloseQuery olayında

Kod: Tümünü seç

  
  if fGizle then
  begin
    CanClose := False;
    Gizle1Click(Sender);
  end;

traydan kapat deyince

Kod: Tümünü seç

  fGizle := False;
  Close;

[TRSoft]

abi ben buna benzer bir şey yapmıştım. ne kadar işini görür bilmiyorum.RxTrayın Active özelliğini false yapıp.Ana formumun OnCloseQuery eventına

Kod: Tümünü seç

     TRTicariForm.Hide;
     RxTray.Active:=true;
     CanClose:=False;

yazmıştım daha sonrada popup menünün yordamına

Kod: Tümünü seç

     TRTicariForm.OnCloseQuery:=nil;
     Close;

istediğim gibi çalışıyordu. Ama sakıncaları varmı bilmiyorum varsa iletirseniz sevinirim.

[salvation]

sadece bi fikir veriyim sen halledersin, kapat dediğinde form görünür vaziyette değilse kapat, görünür haldeyse gizlenmesini sağla.
Yani kapat a basıldığında önce kontrol etsin, sonuca göre işlem yaptır.

[gkimirti]

son fikir guzeldi
saolasın
insanın bazen kulagını tersten gosteresi tutuyor:P

[gkimirti]

TRSoft senin yaklasım da guzel
bence bi sakıncası olmaması lazım.
sadece form kapanırken olusan olaylardan birini iptal etmis oluyorsun