在MDI窗口中如何使滚动条不出现

Question

在MDI窗口中，如果拖动CHILD窗口使其超出MDI窗口的CLIENTAREA，则在MDI窗口右侧和底部会出现滚动条。请教一下如何才能使这些滚动条不出现。谢谢

Answer 1

继承你的Mainform的AlignControls方法:
procedure TMainForm.AlignControls(AControl: TControl; var Rect: TRect);
begin
  inherited;
  if HandleAllocated then
    SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not (WS_HSCROLL or WS_VSCROLL));
end;