Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-02-2017
ryanier ryanier is offline
Registrado
NULL
 
Registrado: nov 2016
Posts: 5
Poder: 0
ryanier Va por buen camino
Cargando Formulario en TPanel

Hola: Primeramente darles las gracias por permitirme ser parte de este foro, partiendo de mis pocos conocimientos de delphi me encuentro desarrollando una aplicacion en la cual tengo un Tform el cual cuenta con un TdxNavBar y un TPanel ahora bien cada vez que hago clic en un item del menu este me abre el formulario deseado ejemplo:
Código Delphi [-]
  
  FormAcreditacionPersonalizada := TFormAcreditacionPersonalizada.create(self);     
  FormAcreditacionPersonalizada.parent := pnlMain;     
  FormAcreditacionPersonalizada.Align := alClient;     
  FormAcreditacionPersonalizada.show;

ahora bien cual es mi prgunta, es posible crear alguna clase o procedimientos el cual ya tengo predefinido estas propiedades y al dar clic en el menu este abra el formulario deseado llamando a estas caracteristicas previamente creadas saludos

Última edición por ecfisa fecha: 22-02-2017 a las 16:43:40. Razón: corregir efecto WYSIWYG
Responder Con Cita
  #2  
Antiguo 22-02-2017
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Hola ryanier

Podria ser algo como esto:

Código Delphi [-]

interface

uses
  Classes, 
  Controls,
  Unidad en donde esta definida el form TFormAcreditacionPersonalizada

procedure MostrarFormAcreditacionPersonalizada(Owner: TComponent; Parent: TWinControl);

implementation

procedure MostrarFormAcreditacionPersonalizada(Owner: TComponent; Parent: TWinControl);
var
  Form: TForm;
begin
  Form := TFormAcreditacionPersonalizada.Create(Owner);   
  Form.Parent := Parent:
  Form.Align := alClient; 
  Form.Show;
end;

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  MostrarFormAcreditacionPersonalizada(Self, pnlMain);
end;
Responder Con Cita
  #3  
Antiguo 22-02-2017
ryanier ryanier is offline
Registrado
NULL
 
Registrado: nov 2016
Posts: 5
Poder: 0
ryanier Va por buen camino
Gracias por la prontitud AgustinOrtu ...

Si mira el tema consiste en pasar el nombre del formulario que deseo mostrar para ahorrarme tener que crear uno por cada formulario que tengo haber perdona si no me se explicar haber con mis palabaras que a la hora de llamar el procedimiento solo pase el nombre del formulario y a su vez este tome todas las caracteristicas predefinidas, vaya que sea una cosa generica por cada formulario que llame gracias...
Responder Con Cita
  #4  
Antiguo 22-02-2017
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Simplemente pasas la clase del formulario como parametro y listo

Código Delphi [-]
procedure MostrarForm(FormClass: TFormClass; Owner: TComponent; Parent: TWinControl);
var
  Form: TForm;
begin
  Form := FormClass.Create(Owner);   
  Form.Parent := Parent:
  Form.Align := alClient; 
  Form.Show;
end;

Llamada:

Código Delphi [-]
procedure ...;
begin
  MostrarForm(TFormAcreditacionPersonalizada, Self, pnlMain);
end;
Responder Con Cita
  #5  
Antiguo 22-02-2017
ryanier ryanier is offline
Registrado
NULL
 
Registrado: nov 2016
Posts: 5
Poder: 0
ryanier Va por buen camino
Muchas gracias AgustinOrtu me has solucionado un problema que llevo varios dias tratando de implementar GRACIAS MIL..!!!
Responder Con Cita
  #6  
Antiguo 24-02-2017
ryanier ryanier is offline
Registrado
NULL
 
Registrado: nov 2016
Posts: 5
Poder: 0
ryanier Va por buen camino
Con la ayuda de AgustinOrtu y otros colegas el código lo implemente de la siguiente forma

Código Delphi [-]
procedure TFormMain.MostrarForm(FormClass: TFormClass; Owner: TComponent; Parent: TWinControl);
var
  Form: TForm;
  i: Integer;
begin
  for i := 0 to Parent.ControlCount - 1 do
    TForm(Parent.Controls[i]).Release;
  Form := FormClass.Create(Owner);
  Form.Parent := Parent;
  Form.BorderIcons := BorderIcons - [biSystemMenu, biMinimize, biMaximize, biHelp];
  Form.Align := alClient;
  Form.Show;
end;
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Cargando Imagen App Android dison Desarrollo en Delphi para Android 4 23-04-2014 15:18:55
Crear un TPanel dentro de un TPanel dentro de un TScrollBox TiammatMX OOP 6 10-02-2014 16:12:08
Rueda del raton en Formulario con TPanel Combat-F2D OOP 1 19-01-2010 22:57:14
Se queda cargando WINDOWS janexa Windows 4 07-12-2006 04:10:47
Formulario cargando opciones dependiendo del anterior jlopez Varios 1 11-06-2005 19:27:51


La franja horaria es GMT +2. Ahora son las 03:56:22.


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