5,388
社区成员
发帖
与我相关
我的任务
分享
var
i: Integer;
frmMDIChild: TForm;
begin
for i := 0 to MDIChildCount - 1 do
begin
frmMDIChild := MDIChildren[i];
ShowMessage(frmMDIChild.Caption);
end;
end;
procedure TCustomForm.RefreshMDIMenu;
var
MenuHandle, WindowMenuHandle: HMenu;
Redraw: Boolean;
begin
if (FormStyle = fsMDIForm) and (ClientHandle <> 0) then
begin
MenuHandle := 0;
if Menu <> nil then MenuHandle := Menu.Handle;
WindowMenuHandle := 0;
if WindowMenu <> nil then WindowMenuHandle := WindowMenu.Handle;
Redraw := Windows.GetMenu(Handle) <> MenuHandle;
SendMessage(ClientHandle, WM_MDISETMENU, MenuHandle, WindowMenuHandle);//Here!!
if Redraw then DrawMenuBar(Handle);
end;
end;