kapat butonuna basınca tray e küçülme

[myalcin]

slm arkadaşlar
programımda kapat tuşuna basınca tray e küçülmesini istiyorum.
ayrıca görev çubuğundan da sağ click yaptığımda kapat a basınca tray e küçülecek
limewire programı gibi.
yardım ederseniz sevinirim.iyi çalışmalar

[Battosai]

formun onclose olayına aşağıdakileri yaz bakalım nolcak...;

application.minimize;
action:canone;

[khanco]

daha önce aynı konuda yapılan konuşmanın bir bölümü

Kod: Tümünü seç

conari 09.04.2007 - 10:09:56 
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.


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.


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


//burda da popup yerine dubleclik de formu getiriyorum


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

[Battosai]

Mevzu tray'e göndermekmiş benin örnek yanlış...khonco metotdu işe yarar... jedi tray bileşeni yoksa elinde...örnek kodlar ile de yapabilirsin...örnekleri biraz arayarak bulabilirsin...

[khanco]

bir balık yemi daha
http://www.delphiturkiye.com/index.php?page=tpos.htm
burada ücretsiz systray componentine link var.

[modigant]

formun onclosequery kısmına trayicon kodunu yazabilirsin..