Program kapanırken TrayIcon gitmesin

[ulu coder]

S.A. arkadaşlar.
Arama yaptım çözüm bulamadım.

JEDI TrayIcon koyduğum proje kapatılınca, MSN gibi, Icon gitmesin istiyorum.
Yani kapata basılınca sadece visible:=false olacak.
Kendi kapat butonumu oluşturmadan bunu yapabilir miyim?

[rsimsek]

FormCloseQuery de istediğini yapıp yani Visible := False ve CanClose := False

Kod: Tümünü seç

CanClose := False;

formun kapanmasını engeller

[Murat DİCLE]

Merhabalar,

Kod: Tümünü seç

    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    KENKLOZ   : Boolean;
.
.
.
implementation
.
.
.
procedure TfrmMain.FormCreate(Sender: TObject);
var
begin
   KENKLOZ := False;
end;
.
.
.
procedure TfrmMain.GercektenKapanDugmesiClick(Sender : TObject);
begin
   KENKLOZ := True;
   Close;
end;
.
.
.
procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   CanClose := KENKLOZ;

   //Jedi TrayIcon şeysi
   if Not CanClose then 
      TIC.HideApplication;
end;
.
.

Gerçekten kapan düğmesine basılmadığı sürece program systray'e konacaktır.

Saygılar..

[ulu coder]

Bu soruyla iki şeyi öğrenmiş oldum;
1-FormCloseQuery ne işe yarar
2-Muratdicle ne kadar neşeli bir insandır

@rsimsek ve @muratdicle'ye teşekkürler.

[Murat DİCLE]

gece gece güldüm, sen de sağolasın....

[ulu coder]

@muratdicle'nin kodlarına göz atıp, ben de yazdım. arada bir fark vardı.
KENKLOZ değişkenini implementation'dan önce Var Form1 :TForm1; yazan yerin altına GKapan : Boolean yazarak tanımladım. Sorum şu; bir değişkeni Var'ın altında, Private'in altında ya da public'in altında tanımlamanın farkı nedir? (Bilmemek ayıp değil öğrenmemek ayıp di mi? )

[Murat DİCLE]

KENKLOZ değişkenini TFORM'un PRIVATE içinde tanımlamamın sebebi, seninde en son sorduğun soruya da cevap verecektir.

PRIVATE özel bir alandır sadece TFORM içindeki elemanların bu KENKLOZ'a erişebileceğini gösterir.

PUBLIC olsaydı aynen halk kütüphanesi gibi, gelen giden erişebilecekti.

[ulu coder]

hocam teşekkürler.

Kod: Tümünü seç

Var
Form1:TForm1;
GKapan:boolean;

şeklinde yapınca da public oluyor değil mi?