Tworze projekt.
Na forme wrzucam button i pod onClick wklejam:
procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowPos(Form1.Handle, HWND_TOPMOST, Left, Top, Width, Height, 0);
end;
Kod działa. Formy nie da się zakryć żadnym innym oknem.
Więc dodaje do projektu 2 formę i kładę na niej przycisk.
i dodaje do niego kod:
procedure TForm2.Button1Click(Sender: TObject);
begin
SetWindowPos(Form2.Handle, HWND_TOPMOST, Left, Top, Width, Height, 0);
end;
Jeśli odpalę teraz aplikacje i pokaże 2 formularz (form2.Show) i kliknę w przycisk to formularz staje się "ontop" tylko dla aplikacji. Innego okna przysłaniają ten formularz.