Delphi MDI Application Next Window菜单项

Question

如何在Delphi 7中为MDI应用程序的Windows菜单中实现Ctrl + F6 Next Window操作？

Answer 1

使用MDI父窗口的Next和Previous方法。 您可以从菜单事件执行此操作，并像任何其他菜单项一样指定快捷方式。 在下面的代码中，MDI父窗体是TFormMDIParent，它假定您创建了两个标题为“Next Child”和“Previous Child”的菜单项，将它们的名称设置为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应用程序向导创建的）。

它也在最初在Delphi 6中创建的应用程序中“正常工作”。

Answer 3

发送主窗体wm_SysCommand消息。 使用sc_NextWindow或sc_PrevWindow作为wParam参数。