procedure TMainForm.acMDIChildExecute(Sender: TObject); var i: Integer; begin for i := 0 to MDIChildCount-1 do begin if SameText(MDIChildren[i].ClassName, 'TMDIChildrenForm') then begin MDIChildren[i].BringToFront; Exit; end; end; TMDIChildrenForm.Create(Self).Show; end;
// sendmessage(MDIChildren[i].handle,wm_syscommand,SC_RESTORE,0);
MDIChildren[i].SetFocus;
var
i: Integer;
begin
for i := 0 to MDIChildCount-1 do
begin
if SameText(MDIChildren[i].ClassName, 'TMDIChildrenForm') then
begin
MDIChildren[i].BringToFront;
Exit;
end;
end;
TMDIChildrenForm.Create(Self).Show;
end;