Ver Mensaje Individual
  #1  
Antiguo 10-05-2006
marlok marlok is offline
Registrado
 
Registrado: dic 2005
Posts: 8
Reputación: 0
marlok Va por buen camino
Problema con Mdi y Tile (a esta altura odio MDI)

Holas, espero que puedan darme una mano, tengo un problema con una aplicacion MDI que estoy desarrollando, el problema se da cuando tengo mas de una ventana hija y quiero mostrarlas a ambas en pantalla(Tile) pero paralelas verticalmente, lo que pasa es que la una de las ventanas queda fuera del area visible del documento y me pone Scrolls en la ventana principal.
Ahora bien, lo curioso es que si presiono nuevamente la opcion del menu, las ventanas se acomodan perfectamente y desaparecen las Scrollbars.
En el caso de la division horizontal no tengo problemas, me muestra las ventanas correctamente.

el codigo que uso para hacer esto es:
Código Delphi [-]
procedure TFormMain.TBItem3Click(Sender: TObject);
var i: integer;
begin
  for i:=0 to MDIChildCount-1 do begin
    MDIChildren[i].WindowState := wsNormal;
    MDIChildren[i].top:= 0;
    MDIChildren[i].Left:=0;
    MDIChildren[i].Height:= Height - ToolBar.Height - panel12.Height - 100;
    MDIChildren[i].HorzScrollBar.Range   := ClientWidth {+ 1};
    MDIChildren[i].VertScrollBar.Tracking:= true;
    MDIChildren[i].HorzScrollBar.Tracking:= true;

  end;
  TileMode := tbVertical;
  Tile;
Responder Con Cita