logo search
Algus0309

I:integer;

begin {Минимизация всех окон до пиктограмм}

for i:=MDIChildCount-1 downto 0 do

MDIChildren[i].WindowState:=wsMinimized;

end;

procedure TForm1.Arrange1Click(Sender: TObject);

begin {Упорядочение пиктограмм}

ArrangeIcons;

end;

procedure TForm1.Closeactiv1Click(Sender: TObject);

begin {Закрытие активного окна}

if ActiveMDIChild<>nil then ActiveMDIChild.Close;

end;

procedure TForm1.Closeall1Click(Sender: TObject);

var