用了mdiform和mdichild,调节mdichild大小后关闭,但不关闭mdiform。当mdichild再次被show时,需要mdichild为上次调整的大小。请问如何实现?创建mdichild的代码 if form_streetpoint = nil then begin
form_streetpoint := TForm_streetpoint.Create(nil);
form_streetpoint.show;
end
else begin
form_streetpoint.show;
end;
form_streetpoint := TForm_streetpoint.Create(nil);
form_streetpoint.show;
end
else begin
form_streetpoint.show;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
showwindow(handle,sw_hide);
end;
主窗体
procedure TForm1.Button1Click(Sender: TObject);
begin
showwindow(form2.handle,sw_show);
end;