Ventanas estilo outlook

[Jose Roman]

Hola a todos,

Tengo una inquietud, alguien ha hecho alguna aplicacion al estilo MS Outlook???, encontre este articulo http://www.delphi3000.com/articles/article_1619.asp?SK=, pero no me es muy claro del todo, asi que por favor alguien que me pueda dar una guia o un ejemplo para realizar esto. Gracias de antemano

[thecidmx]

q es lo q realmente quieres hacer?, ya q el ejemplo q mencionas es para colocar form en paneles en una aplicacion cualquiera.

Código Delphi [-]
procedure TfrmIMMain.SetActiveDetailForm(F: TForm; ParentControl: 
TWinControl); 
begin 
  if ActiveDetailForm<>F then 
   begin 
    if Assigned(ActiveDetailForm) then 
        ActiveDetailForm.Hide; 
//the following two lines do what we need... 
    F.Parent:=ParentControl; 
    F.Align:=alClient; 
    ActiveDetailForm:=F; 
    F.Show; 
   end; 
end;

[Jose Roman]

Gracias por responder, bueno te comento deseo realizar una aplicación pero al estilo Outlook Xp, en que la parte izquierda hay unos botones y si se da clic en uno de ellos a la derecha aparezca la ventana. No deseo tener muchas ventanas abiertas, algo como MDI pero al estilo que deseo, no se si soy muy claro...

[ecfisa]

Hola José.

Si no entiendo mal lo deseas hacer, creo que el ejemplo que te adjunto te sirvirá como guía. Es muy simple, consta de un TScrollBox, seis TBitBtn y un TPanel en el form principal y otro form.

A modo demostrativo, tiene asignado un código a los seis eventos OnClick de los TBitBtn. En él se cierran los forms abiertos (uno en este caso) y se crea un nuevo form que es mostrado en el TPanel de la derecha.

El TScrollBox es a fin de que puedas tener más botones que los que te permita la pantalla, ya que podrás desplazarte con el ScrollBar vertical hasta llegar a los no visibles en ese momento.


Saludos.