ActiveDelphi

[sidneyps]

Pessoal,
Eu tenho um form mdi, quando eu teclo um botão gostaria de abrir outra janela mais que as duas ficassem lado a lado.

Como fazer?

Obrigado.

Sidney

[johnny-walker]

Eis algumas comandos de mdi...

procedure TMainForm.WindowCascadeMNItemClick(Sender: TObject);
begin
Cascade;
end;
// Aqui o que vc procura
procedure TMainForm.WindowTileMNItemClick(Sender: TObject);
begin
Tile;
end;

procedure TMainForm.WindowArrangeMNItemClick(Sender: TObject);
begin
ArrangeIcons;
end;

procedure TMainForm.WindowMinimizeMNItemClick(Sender: TObject);
var
I: Integer;
begin
{ Must be done backwards through the MDIChildren array }
for I := MDIChildCount - 1 downto 0 do
MDIChildren[I].WindowState := wsMinimized;
end;

bye...