uygulama ekranda aktif olsun

[metemete]

F12 tusunu dinleterek f12 ye basıldıgında
uygulamayı StTrayIcon1.RestoreApplication; ekrana görunmesini sağlıyorum ama ekranda aktif olmuyor
birkez tıklamam gerekiyor.


bole bişide olmuyor Application.Active;

ekran da nasıl aktif ederim?

[Battosai]

procedure TForm4.FormPaint(Sender: TObject);
begin
SetZOrder(True);
end;

procedure TForm4.FormShow(Sender: TObject);
begin
SetWindowPos(Form4.Handle,HWND_TOPMOST,0, 0, 0, 0,
SWP_NOMOVE OR
SWP_NOACTIVATE OR
SWP_NOSIZE);
end;

[metemete]

cok sağol allah razı olsun

[Battosai]

Bende bu mesele için uğraştıydım zamanında forumda da geçiyor zaten ama denk gelmemişindir...