Ventana principal o contenedora de forms?

[sebamawa]

Empezado por daragor

En definitiva creo q frames, paneles.. cumplen con el objetivo. Igual a lazarus le falta esto.. una ventana contenedora. Gracias por el interes sebamawa

Es así, ya no hay mucho que hacer, inclusive la última alternativa que publiqué, si bien visualmente está bien, el comportamiento de los Forms contenidos no es el ideal al maximizarlos o minimizarlos.
Habrá que adaptarse a no usar ventanas MDI.
Ahora, una pregunta al compañero daragor. ¿Puedes explicarme el órden en que usas los componentes para lograr el efecto que muestras en la imagen anterior que publicaste (Artículos, Compras, Ventas...)?. Pues distingo paneles, frames y menús, pero no logro obtener el efecto de que cuando se elige un item (por ejemplo artículos) se muestre el panel - frame correspondiente.
Saludos.

[daragor]

Compañero seba, como no... primero no uso paneles, por lo mismo que dijiste vos, es mas complicado con el tema forms en cuanto al diseño. Asi que solo estoy usando TPageControl, con las paginas necesarias (articulos, compras,ventas,etc.) dentro de cada pagina pongo un frame, ese frame esta creado aparte, con todos los objetos y procedimientos necesarios para por ejemplo un ABM de articulos. Incluso con los valores SQL, conexion, transicion, y datasource y querys que vaya a usarse. Cuando ejecutas ves el form principal voy navegando por las paginas. Pense en un menu para otras cosas, que si podrian ser forms volando por ahi.. un login, un manejo de mysql, etc. Espero me entiendas...



Saludos

[sebamawa]

Gracias daragor por la información, hasta cualquier momento.
Saludos.

[[mightydragonlor]]

Yo uso TFrames, sólo que los creo en tiempo de ejecución con el TPanel como padre, y todo el código lo manejo en el TFrame.

[sebamawa]

Empezado por mightydragonlor

Yo uso TFrames, sólo que los creo en tiempo de ejecución con el TPanel como padre, y todo el código lo manejo en el TFrame.

Hola mightydragonlor.
Pero cómo haces para manejar los paneles, por ejemplo maximizar o minimizar ventanas con ellos, usar menús, etc?
Puedes plantear un ejemplo?
Saludos.

[[mightydragonlor]]

Nunca hago nada de eso, si necesito una ventana, pues uso una ventana, todo depende del look que le quiera dar a mi aplicación, pero en definitiva, nunca he usado formularios MDI, me parece que son horribles, ademas, para eso están las ventanas modales, Tabs, Notebook, paneles y demás, ahora si lo que quieres es que un panel pueda cambiar de tamaño y pocisión, no es muy dificil.

Código Delphi [-]
procedure TPanel.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  inherited MouseDown(Button, Shift, X, Y);
  lastPos := ClientToScreen(point(X,Y));
  isMouseDown := true;
end;

procedure TPanel.MouseMove(Shift: TShiftState; X, Y: Integer);
var
  diff,newPos:TPoint;
  newRect:TRect;
begin
  inherited MouseMove(Shift, X, Y);
  newPos := clientToScreen(point(X,Y));
  if isMouseDown then begin
    diff.x := newpos.x-LastPos.x;
    diff.y := newpos.y-LastPos.y;
    if panelMode in [pmMoveSelf] then
    begin
      newRect := BoundsRect;
      OffsetRect(newRect, diff.x, diff.y);
      BoundsRect := newRect;
    end else begin
      newRect := parent.BoundsRect;
      case panelmode of
        pmMoveSelf: OffsetRect(newRect, diff.x, diff.y);
        pmMoveParent: OffsetRect(newRect, diff.x, diff.y);
        pmResizeParent:
        begin
          inc(newRect.right,diff.x);
          inc(newRect.bottom,diff.y);
        end;
        pmResizeParentLeft:   inc(newRect.left,diff.x);
        pmResizeParentRight:  inc(newRect.right,diff.x);
        pmResizeParentTop:    inc(newRect.top,diff.y);
        pmResizeParentBottom: inc(newRect.bottom,diff.y);
      end;
      parent.BoundsRect := newRect;
    end;
  end;
  LastPos := newPos;
end;

procedure TPanel.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  inherited MouseUp(Button, Shift, X, Y);
  IsMouseDown := false;
end;

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormDblClick(Sender: TObject);
begin
  application.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  wLeft.PanelMode := pmResizeParentLeft;
  wright.PanelMode := pmResizeParentRight;
  wTop.PanelMode := pmResizeParentTop;
  wBottom.PanelMode := pmResizeParentBottom;

  panel1.PanelMode := pmMoveSelf;
  panel2.PanelMode := pmResizeParent;
  panel3.PanelMode := pmMoveParent;
  Self.DoubleBuffered:=True;
end;

Esto debería servirte.

[sebamawa]

Gracias mightydragonlor, hace poco que uso Lazarus y todo tipo de idea nueva es bienvenida.
Saludos.