Zawsze na wierzchu (not for main Form)

0

Wiem nak zrobić, zeby formularz był zawsze na wierzchu, ale jak próbuję zrobić żeby nie form1 a np. inna formatka tego samego programu była zawsze na wierzchu wtedy stayonTop nie działa. Może mi ktoś coś doradzić.

0

Używaj ShowModal.

0

Panie Explorer.exe.
Masz pan tutaj gotowy kodzik, żeby można było zrobić StayOnTop drugiej formy, z dostępem do formy pierwszej:

procedure TForm1.Button1OnClick(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
  SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, 0);
end;

procedure TForm2.FormDeactivate(Sender: TObject);
begin
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
end;

Możesz jeszcze zastosować po prostu ShowModal tak jak napisał berl i wtedy nie będzie dostępu do pierwszej formy :) logiczne :)

Pozdrawiam!

1 użytkowników online, w tym zalogowanych: 0, gości: 1