Try İcon popup menü

[haydarxxx]

Try iconla küçültüm proje popupe bağlı kapat ve aç düğmesi var

Kod: Tümünü seç

procedure TForm2.Kapat1Click(Sender: TObject);
begin
close;
end;

program kapanıyor
ama aç butonuna projemin ana formu zaten tek form var

Kod: Tümünü seç

procedure TForm2.A1Click(Sender: TObject);
begin
Form1.show;
end;

şeklide yazıyorum ama projeyi ekrana getirmiyor.try icondan aç komutu ile tekrar proje ekrana nasıl getiriliyor

[ertank]

Merhaba,

TrayIcon kullanır iken aşağıdaki şekilde küçültme ve ekrana geri açma yapmalısınız.

Formunuza bir adet TApplicationEvents ve bir adet TTrayIcon bileşeni ekleyin. ApplicationEvents1 için OnMinimize kısmına aşağıdaki kodu ekleyin

Kod: Tümünü seç

procedure TfrmMain.ApplicationEvents1Minimize(Sender: TObject);
begin
  Self.Hide();
  Self.WindowState := wsMinimized;
  TrayIcon1.IconIndex := 0;
  TrayIcon1.Visible := True;
end;

ApplicationEvents1 için OnRestore kısmına aşağıdaki kodu ekleyin

Kod: Tümünü seç

procedure TfrmMain.ApplicationEvents1Restore(Sender: TObject);
begin
  Self.Show();
  Self.WindowState := wsNormal;
  Application.BringToFront();
end;

TrayIcon1 için isteğe bağlı olarak OnClick veya OnDblClick kısmına aşağıdaki kodu ekleyin

Kod: Tümünü seç

procedure TfrmMain.TrayIcon1DblClick(Sender: TObject);
begin
  if Self.WindowState = wsMinimized then ApplicationEvents1Restore(Self);
end;

[haydarxxx]

Teşekkürler... Try icon minimize oluyor ama tekrar OnClick Application olmuyor.Açılmıyor (((

[ertank]

İlgili yerlerin mevcut kodlarını paylaşabilir misiniz?

[freeman35]

Kod: Tümünü seç

procedure TFRM_Main.AppEv_Minimize(Sender: TObject);
begin
     if IsIconic(Application.Handle)then ShowWindow(Application.Handle, SW_HIDE);
end;

procedure TFRM_Main.AppEv_Restore(Sender: TObject);
begin
     if IsIconic(Application.Handle)then ShowWindow(Application.Handle, SW_RESTORE);
end;

kolay gele

[haydarxxx]

freeman35 kodlaarınıda ekledim oldu.İsteyen olurs kodları ekleyebilirim. ertank freeman35 çok teşekkürler.