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
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!