Programin arka plana itilmesini onlemek

[z]

Yazilan programin her zaman en ustte gorunur kalmasini saglamak icin ne yapiyoruz.

Programi biz kucultmedigimiz yada kapamadigimiz surece hep ekranda kalmasini istiyorum.

[SpeedyX]

procedure TForm1.FormShow(Sender: TObject);
begin
 SetWindowPos(Form1.Handle,
              HWND_TOPMOST,
              0, 0, 0, 0,
              SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
 Application.CreateForm(TForm1, Form1);
 Form1.ShowModal;
 Form1.Release;
end; 

http://www.swissdelphicenter.ch/torry/showcode.php?id=6

[elektroboy9]

Formun, FormStyle özelliğini fsStayOnTop yapman yeterli. Herhangi bir kod yazmana gerek yok.
İlla yazacaksan OnCreate olayında  FormStyle := fsStayOnTop; şeklinde kullan.