30-11-2023, Saat: 21:27
Merhaba arkadaşlar.
Bilindiği üzere servis tarzı uygulamalar yazdığımız da form olarak görüntü yerine sağ altta saatin orada görünmesi için TrayIcon kullanıyoruz. Fakat burada simgeyi tıkladığımız da uygulamanın açılıp, en öne gelmesini şu şekilde sağlıyorum.
Bilindiği üzere servis tarzı uygulamalar yazdığımız da form olarak görüntü yerine sağ altta saatin orada görünmesi için TrayIcon kullanıyoruz. Fakat burada simgeyi tıkladığımız da uygulamanın açılıp, en öne gelmesini şu şekilde sağlıyorum.
procedure TForm1.TrayIcon1Click(Sender: TObject); var AppWnd: HWND; begin Self.Show; self.BringToFront; AppWnd := Application.Handle; if IsIconic(AppWnd) then Application.Restore; SetForegroundWindow(AppWnd); end;
// Bilgi paylaştıkça çoğalır..