Lazarus经典MDI

Lazarus支持MDI窗体，把主窗体的FormStyle设置为fsMDIForm，子窗体的FormStyle设置为fsMDIChild。以两个子窗体为例，子窗体的名称分别为wOne和wTwo.

一、主窗体

1、打开子窗体一

  if wOne = nil then
  begin
    Debugln('wOne is nil');
    wOne:= TwOne.Create(self);
    wOne.Position:=TPosition.poDefaultPosOnly;
  end ;
  wOne.Visible:=true;
  wOne.bringToFront;   

2、打开子窗体二

    if wTwo = nil then
    begin
      Debugln('wTwo is nil');
      wTwo:= TwTwo.Create(self);
      wTwo.Position:=TPosition.poDefaultPosOnly;
    end ;

    wTwo.Visible:=true;
    wTwo.bringToFront; 

二、子窗体设置

子窗体关键点主要在窗体关闭事件上

procedure TwOne.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin

  Self.Hide;
end;  

三、示例

Lazaus中MDI窗体示例资源-CSDN下载