1 つの空のフォームと、TButton を含む 2 つ目の単純なテスト アプリがあります。ボタン スクリプトは次のようになります。
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show();
end;
Form2起動時に自動作成されます。他のコードはまったくありません。
アプリを実行すると、ボタンを押すとForm2表示されます。Form2プライマリ モニターの位置とサイズを変更してから閉じることができます。Form1ボタンをもう一度押すと、最後Form2にあった位置に正しく再表示されます。これまでのところすべて順調です...
ただし、Form2セカンダリ モニターに配置し、それを閉じてからボタンを押すとForm2、プライマリ モニターに再び表示されます。
フォームが最後に表示されていたモニターに再び表示されるようにするにはどうすればよいですか??