Program kapatılınca traya yerleşme

[trolojik]

Merhaba trayicon componentini kullanıyorum Programdan çıkış (X) tuşuna bastığımda programın kapanması yerine programın traya geçmesini nasıl sağlayabilirim

Kolay gelsin

[vkamadan]

Merhaba,
Formun OnCloseQuery olayına CanClose:=False; dedikten sonra trayicon un traya gönderen komutunu uygulayarak traya gönderebilirsiniz.Ancak programdan elbette çıkılmak istenecektir, bunuda sanırım traya sağ tıklayınca açılacak bir popup menüden çıkış komutu vererek yapacaksınız, bunun için formunza global bir değişken tanımlayın Örn Kapat:Byte; olsun, OnCreate de Kapat:=0 olsun , OnCloseQuery de gerekli kontrolü yapıp Kapat=0 sa traya göndersin, traydan kapat komutu gelirse kapat:=1 yapın önce sonra Close komutunu gönderin kapansın, umarım fikir vermiştir.

[aslangeri]

@trolojik mesajının başlığını düzelt.

Mesajınıza uygun ve konuyu özetleyen kısa bir başlık yazın. Acil, Çok Acil, Önemli gibi ifadeler veya konuyla alakasız bir başlık kullanmayın.

burda herkes zaten birbirine yardım ediyor. Ayrıyetten konu başlığında belirtmene gerek yok !

[trolojik]

@trolojik mesajının başlığını düzelt.

Mesajınıza uygun ve konuyu özetleyen kısa bir başlık yazın. Acil, Çok Acil, Önemli gibi ifadeler veya konuyla alakasız bir başlık kullanmayın.

burda herkes zaten birbirine yardım ediyor. Ayrıyetten konu başlığında belirtmene gerek yok !

Bu derece celallenmene hiç lüzum yok daha tatlı dille bunu aksedebilirsin ..

2. Olarak bu bölüme aynı zamanda kod paylaşımı da yapılmıyormu

[trolojik]

vkamadan : Yardımın için teşekkür ederim

[aslangeri]

Bu derece celallenmene hiç lüzum yok daha tatlı dille bunu aksedebilirsin ..

o zaman tatlı dille söylüyorum
Mesajın başlığını düzelt. (ilk mesajının sağ üst köşesinde edit yazan düğme var.)
2. olarak kod paylaşımı yapıyoruz niye yapmayalım.

[conari]

Ben Jedi Paketindeki Trayicon comp. kullanıyorum

//Formu tray a atmak için
burda bir timer çalıştırıyorum 10 dakka içinde program tekrar show olsun diye.

Kod: Tümünü seç

procedure TSform.BGizleClick(Sender: TObject);
begin
  JvTrayIcon1.HideApplication;
  JvTrayIcon1.Active:=true;
  Timer1.Enabled:=true;
end;

Burda da Popupmenü yardımı ile formu geri yüklettiriyorum.

Kod: Tümünü seç

procedure TSform.colpshowClick(Sender: TObject);
begin
  JvTrayIcon1.Active:=False;
  JvTrayIcon1.ShowApplication;
end;

//burda da popup yerine dubleclik de formu getiriyorum

Kod: Tümünü seç

procedure TSform.JvTrayIcon1DblClick(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
JvTrayIcon1.ShowApplication;
JvTrayIcon1.Active:=false;
end;