delphi - DelphiMDIアプリケーションの次のウィンドウのメニュー項目

Question

Delphi7のMDIアプリケーションのWindowsメニューでCtrl+F6 Next Windowアクションを実装するにはどうすればよいですか？

Answer 1

MDI親ウィンドウのNextメソッドとPreviousメソッドを使用します。これはメニューイベントから実行でき、他のメニュー項目と同じようにショートカットを割り当てることができます。以下のコードでは、MDI親フォームはTFormMDIParentであり、「次の子」と「前の子」というタイトルの2つのメニュー項目を作成し、それらの名前をIDEによって生成されたデフォルトに設定したままにしていることを前提としています。また、メインフォームがMDI親（FormStyle = fsMDIForm）になるように正しく設定されていることも前提としています。

procedure TFormMDIParent.NextChild1Click(Sender: TObject);
begin
  Self.Next;
end;

procedure TFormMDIParent.PreviousChild1Click(Sender: TObject);
begin
  Self.Previous;
end;

Answer 2

私はあなたが何もする必要はないと思います-それはMDIアプリで暗黙的です（とにかくDelphi 2006の新しいMDIアプリウィザードで作成されました）。

また、元々Delphi6で作成されたアプリでも「正しく機能」します。

Answer 3

メインフォームにwm_SysCommandメッセージを送信します。sc_NextWindowまたはsc_PrevWindowをwParamパラメーターに使用します。