就如我們常見，當child windows縮小後，在windows的pull down menu中選擇已經縮小的child window
，之後就會放大回縮小之前的模樣。

請師兄們，再次幫忙～有勞

------
獨學無友則孤陋寡聞，相識滿天下能知天下事
小弟是來自香港的～～多多指教

網上隨便找來的, 自己試試吧!
[code delphi]
procedure TCustomForm.MergeMenu(MergeState: Boolean);
var
AMergeMenu: TMainMenu;
Size: Longint;
FixMaximize: boolean;
begin
if not (fsModal in FFormState) and
(Application.MainForm <> nil) and
(Application.MainForm.Menu <> nil) and
(Application.MainForm <> Self) and
((FormStyle = fsMDIChild) or (Application.MainForm.FormStyle <>
fsMDIForm)) then
begin
AMergeMenu := nil;
if not (csDesigning in ComponentState) and (Menu <> nil) and
(Menu.AutoMerge or (FormStyle = fsMDIChild)) then AMergeMenu := Menu;
FixMaximize := MergeState and (FormStyle = fsMDIChild) and
(WindowState = wsMaximized);
// The important change from the healthy MergeMenu from D4
// is that the Restore/RE-maximize are split up to match the
// behavior described in the Win32 Help's wm_MDINext topic (at
// the bottom).
if FixMaximize then begin
{ Force MDI to put back the system menu of a maximized child }
Size := ClientWidth (Longint(ClientHeight) shl 16);
SendMessage(Handle, WM_SIZE, SIZE_RESTORED, Size);
end;
try
with Application.MainForm.Menu do
if MergeState then Merge(AMergeMenu) else Unmerge(AMergeMenu);
finally
if FixMaximize then
begin
Size := ClientWidth (Longint(ClientHeight) shl 16);
SendMessage(Handle, WM_SIZE, SIZE_MAXIMIZED, Size);
end;
end;
end;
end;
[/code]

------
努力會更接近成功

還未了解是否可行，但先行謝謝了～

------
獨學無友則孤陋寡聞，相識滿天下能知天下事
小弟是來自香港的～～多多指教

請參考
http://www.swissdelphicenter.ch/torry/showcode.php?id=836

------
努力會更接近成功