TForm.Create Nombre dupplicados - Chat

[ecfisa]

Hola adonias.

El problema es que me crea el form IdChatxx, pero no me deja cliquear al form1 o form padre.

Eso es lógico por que en la creación estás haciendo esto:

Código Delphi [-]
F.ShowModal;

Y si la mostrás en forma modal no te va a dejar abandonar el creado.

La forma típica de mostrar una ventana no modal es:

Código Delphi [-]
procedure TForm1.MostrarNoModal(AClass: TFormClass);
var
  Form: TForm;
begin
  Form:= TForm(Application.FindComponent(Copy(AClass.ClassName,2,255)));
  if Assigned(Form) then
    Form.Show
  else
    AClass.Create(Application).Show;
end;

Llamada:

Código Delphi [-]
MostrarNoModal(TForm2);

Si no es esto lo que estás buscando, como dice el amigo Caral arriba, especificá un poco más.


Saludos.