Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-11-2008
Avatar de casacham
casacham casacham is offline
Miembro
 
Registrado: abr 2006
Ubicación: Cordoba->Argentina. Arboleas->Almeria->España
Posts: 184
Poder: 19
casacham Va por buen camino
La solucion a tus problemas

Aqui va un procedimiento que resuelve tu problema


Código Delphi [-]
 
procedure CargarFormulario(NuevaClase: TFormClass; NuevoForm: TForm;
                           Self: TComponent; Contenedor: TWinControl);
begin
      if Contenedor.ControlCount > 0 then begin
          if Contenedor.Controls[0] is NuevaClase then Exit;
          NuevoForm.Free;
          TCustomForm(Contenedor.Controls[0]).Free;
      end;
      if Assigned(NuevaClase) then begin
         Try
            NuevoForm := NuevaClase.Create(Self);
            Screen.Cursor:=crAppStart;
            with NuevoForm do begin
                 Hide;
                 BorderStyle := bsNone;
                 Parent      := Contenedor;
                 Align       := alClient;
//               OnClose     := NuevaFormaClose;
                 Show;
                 SetFocus;
                 Screen.Cursor:=crDefault;
            end;
         Except
           Screen.Cursor:=crDefault;
           ShowMessage('Error de formulario');
         end;
      end;
end;



MODO DE USO


Código Delphi [-]
 
 
procedure TF_Prin.IngresarNuevo1Click(Sender: TObject);
begin
  //CargarFormulario(TForm1,Form1,Self,PanelDondeQuieresQueTeCargueElForm);
  CargarFormulario(TF_PCTE,F_PCTE,Self,PanelForm);
end;
__________________
La vida no trata de encontrarse a uno mismo, sino de crearse a uno mismo.
Tanto si piensas que puedes como si no, estarás en lo cierto

Última edición por casacham fecha: 08-11-2008 a las 20:53:06.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ejecutar aplicación dentro de un Panel aeff API de Windows 5 08-10-2008 20:47:01
Crear un Objeto dentro de un Panel sancarlos OOP 24 21-07-2008 14:59:51
No funcionan componentes TSelectOnRuntime cuando estan controles dentro de un panel gulder API de Windows 6 11-08-2006 09:58:50
Como abrir una pagina web desde una Tform normal Martha Ayala Internet 3 24-10-2005 22:59:54
Crear un label dentro de un panel abogado Varios 1 28-03-2005 13:43:16


La franja horaria es GMT +2. Ahora son las 15:32:30.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi