Pozornie łatwe pytanie.
Próbuję otworzyć nową formę i umieścić ją pod bieżącą formą (aktualne okno ma być na wierzchu)
procedure TForm3.Button1Click(Sender: TObject);
begin
if not Assigned(MeasureForm) then
begin
MeasureForm := TForm.Create(nil);
MeasureForm.Left := 0;
MeasureForm.Top := 0;
MeasureForm.Width := Screen.Width;
MeasureForm.Height := Screen.Height;
MeasureForm.BorderStyle := bsNone;
MeasureForm.FormStyle := fsNormal;
MeasureForm.Show;
self.BringToFront;
self.FormStyle := fsStayOnTop;
MeasureForm.SendToBack;
end
else
begin
MeasureForm.Close;
FreeAndNil(MeasureForm);
end;
kombinuję z SendToBack
, BringToFront
, FormStyle := fsStayOnTop
ale ta nowa forma czasem otwiera się na wierzchu a czasem pod spodem.
Jak mam ją umieścić zawsze pod oknem.