TrayIcon Form Close

[haydarxxx]

Arkadaşlar JvTrayIcon ile buttona aşağıdaki kodu yazdığımda JvTrayIcon görevini yapıyor.PopupMenu den form.close; ile kapatıyorum.

Kod: Tümünü seç

JvTrayIcon1.Active:=true;
JvTrayIcon1.HideApplication;

Ama ben istiyorum ki Formun kapatma [X] düğmesinden kapatıldığında form kapatılmasın JvTrayIcon devreye girsin.PopupMenu aracılığı ile programı kapatmak istiyorum.

[conari]

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caNone;
JvTrayIcon1.Active:=true;
JvTrayIcon1.HideApplication;
end;

[haydarxxx]

Hocam nasıl sonlandıracağız programı.popupmenu ile kapatmaya kalktığımızda onclose devreye giriyor malum
viewtopic.php?f=2&t=14002&hilit=exe+sonland%C4%B1rma de bir anlatım var onumu inceleyeyim yoksa daha basit bir yöntemi varmı.

[conari]

Formun onclose yordamına yukarıdakileri yazarsan istediğin olması gerekiyor.

alternatif olarak Kapat(X) tuşunuda yok edebilirsiniz. Bordericonları

[haydarxxx]

hocam olmasına olur try icon şeklinde ama programı nasıl sonlandırcağız (uygulama sonlandırma)Windows görev yöneticisinden işlemler bölümüne müdahale ederek çalışan projeyi durdurmak gerekiyor kapatmak için.Bordericonları kapatmak istemiyorum

[conari]

Benim kodlarım.

Kod: Tümünü seç

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caNone;
 btnKapat.click;
end;

Kod: Tümünü seç

procedure TMainForm.btnKapatClick(Sender: TObject);
var cevap:word;
begin
 cevap:= MYMessageDlg('   Gerçekten Kapatmak mı,   ' + #10 +
    	'   Gizlemek mi İstiyorsunuz?',	mtConfirmation,[mbYes, mbNo, mbCancel ],['Kapat', 'Gizle','Vazgeç'],mrNo);
   if cevap=mrYes then begin
      AdoDB.Close;
      AdoCKontrol.close;
      AdoN.close;
      TimerSaat.Enabled:=False;
      Application.Terminate;
   end;
  if cevap=mrNo then begin
      btnGizle.Click;
      end;
end;

Kod: Tümünü seç

procedure TMainForm.btnGizleClick(Sender: TObject);
begin
  TimeAyar.Enabled:=True;
     TryIcon.HideApplication;
        TryIcon.Active:=true;
end;

Kod: Tümünü seç

procedure TMainForm.TryiconDblClick(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TimeAyar.Enabled:=False;
   TryIcon.Active:=False;
    TryIcon.ShowApplication;
end;

[haydarxxx]

Teşekkürler conari