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