Crear TForm en Runtime

[mjjj]

Hola amigos del foro.

Tengo una pregunta para ustedes.
Estoi haciendo una aplicacion que es un chat, con el cual se puede escribir en un canal abierto y lo pueden ver todos los usuarios conectados.

Ahora bien, quiero tener la posibilidad de tener una conversacion privada (como un messenger), en donde al apretar el boton de mensaje privado, me abra una ventana por cada usuario (tal cual como es messenger)

El asunto es que no puedo tener miles de form creados e ir poniendolos visibles.

Mi idea es crear form en runtime, con este código.

Código Delphi [-]
var componentT : TComponent;
Frame: TFrame;
begin
        with TForm.Create(self) do
        begin
                Left := 150;
                Top := 150;
                Width := 300;
                Height := 500;
                Name := listbox1.Items.Strings[slistbox1.itemindex];
                Caption := slistbox1.Items.Strings[slistbox1.itemindex];
                show;
        end;
        with TMEMO.Create(self) do
        begin
                Left := 7;
                Top := 8;
                Width := 257;
                Height := 273;
                Name := 'memo';
                Caption := '';
                Parent := self;
        end;
        with TEdit.Create(self) do
        begin
                Left := 7;
                Top := 287;
                Width := 257;
                Height := 21;
                Name := 'edit';
                Caption := '';
                onkeypress :=  Edit1KeyPress;
                Parent := self;
        end;
 
 end;
end;

aparte del form necesito crear un TEdit y un TMemo, el problema es que en la propiedad parent, no se como hacer referencia al TForm recien creado, porque si lo dejo como SELF, lo crea en el form en donde aprete en boton de mensaje privado.

Otra cosa, al apretar el boton de mensaje provado, y crea el componente TForm, antes de crear debiese comprobar si es que existe o no, sino me arroja un error de que ya existe un componente con ese nombre... como se hace para saber si existe o no algun componente?

Bueno, espero que me puedan ayudar.

Saludos y muchas gracias

[roman]

Para referenciar al formulario recién creado necesitas asignarlo a una variable al momento de crearlo:

Código Delphi [-]
var
 Form: TForm;

begin
  Form := TForm.Create(Self);

  with Form do
  begin
    ...
    with TMemo.Create(Form) do
    begin
      ...
      Parent := Form;
      ...
    end;
  end;
end;

Pero por otra parte, no veo la necesidad de construir cada componente del formulario. Crea un formulario TVentanaPrivada (en tiempo de diseño) al que le pones todos los controles que necesites para ese formulario, lo quitas del AutoCreate y al moento de necesitar un privado creas tu formulario:

Código Delphi [-]
var
  Form: TVentanaPrivada;

begin
  ...
  Form := TVentanaPrivada.Create(Self);
  ...
end;

// Saludos

[mjjj]

me parece una buena idea, pero de esa manera solo podre tener un solo privado a la vez.

siguiendo con la idea original, tengo un codigo que esta algo asi:

Código Delphi [-]
var form : Tform;
memo : Tmemo;
begin
   if key=#13 then
with (Sender as TEdit) do
begin
 form := FindComponent( slistbox1.Items.Strings[slistbox1.itemindex] ) as TForm;
 memo := FindComponent( 'memo' ) as TMemo;

with form do with memo do lines.Add(label2.caption+': '+text);

a donde quiero llegar con todo esto, el asunto es que como tengo varios form de mensajeria privada, necesito identificar en donde escribir lo que estoi mandando... es decir en cual TForm creado escribo lo que acabo de mandar al usuario en particular.

el codigo expuesto, no tira error al compilar, pero si al ejecutar el procedimiento.

espero me puedan ayudar.

Gracias

[roman]

Empezado por mjjj

me parece una buena idea, pero de esa manera solo podre tener un solo privado a la vez.

Y, ¿por qué crees esto? Así como creas muchos TForm, puedes crear cuanto TVentanaPrivada quieras.

Y yo lo que haría es llevar una lista (TList, TObjectList e incluso TStringList) de las ventanas privadas.

// Saludos

[Cheerpipe]

Empezado por roman

Y, ¿por qué crees esto? Así como creas muchos TForm, puedes crear cuanto TVentanaPrivada quieras.

Y yo lo que haría es llevar una lista (TList, TObjectList e incluso TStringList) de las ventanas privadas.

// Saludos

X2. Amigo, estas pensando de forma estructurada, debes abstarer el problema a una logica de objetos, ya veras como es de facil.

Por ultimo mjj, tengo que confesarte que tu razonamiento esta del todo equivocado, creo que te faltan ciertas bases necesarias para que puedas continuar programando tu aplicacion, y esa base se llama POO.

[[Delphius]]

Empezado por Cheerpipe

X2. Amigo, estas pensando de forma estructurada, debes abstarer el problema a una logica de objetos, ya veras como es de facil.

¿Que roman está siguiendo un enfoque estructurado? ¡Yo no estaría tan seguro!

En lo que si tal vez se podría llegar a discutir si es viable el uso de tener la lista.... La lista está hecha... en SCreen.Forms

Saludos,

[roman]

¡Ah! Esto sí estuvo gracioso

Un TForm es una clase, un TVentanaPrivada es una clase (que hereda de TForm), un TList es una clase.

Delphius: Screen.Forms es una lista de todas las ventanas creadas, pero yo usaría una lista específica puesto que en ScreenForms puede haber muchas otras formas que no interesan.

// Saludos

[Cheerpipe]

Empezado por Cheerpipe

X2. Amigo, estas pensando de forma estructurada, debes abstarer el problema a una logica de objetos, ya veras como es de facil.

Por ultimo mjj, tengo que confesarte que tu razonamiento esta del todo equivocado, creo que te faltan ciertas bases necesarias para que puedas continuar programando tu aplicacion, y esa base se llama POO.

Mi error, debi poner punto aparte y no seguido xD..

Mjj esta usando un enfoque esteucturado, y POO .

Insito en que el amigo Mjj, podria partir por instruirse que es POO, con eso se le ará mas facil comprender el ejemplo de Roman, ya que es justamente, un enfoque muy correcto, digo muy correcto, porque siempre hay mas de 1 forma de solucionar un problema .