Problema Creando un Form Dinamico

[Juanitol]

Código Delphi [-]
  
  con:=TFormConv.Create(Form1);
  con.Parent:=Form1;
  con.Visible:=True;
  con.show;

Es normal que esto me falle???????
Me crea el Form pero la ventana se me queda colgada.
Llevo toda la tarde intentandolo y leyendo manuales pero es que empiezo a pensar que no es normal

He creado el form FormConv pero al crearlo dinamicamente no puedo usar ningun componente

[jhonny]

Pues en teoria deberia funcionar lo que expones, pero regularmente estos formularios se crean, asi:

Código Delphi [-]
FormConv := TFormConv.Create(Application);

Y si es un formulario Modal, hay que agregarle las siguiente lineas tambien...

Código Delphi [-]
FormConv.ShowModal;
FormConv.Release;

Espero te sirva .

[Juanitol]

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var 
  con: TformConv; 
  memo2: Tmemo; 
begin   
  con:=TformConv.Create(Application);   
  con.Parent:=con;   
  con.Visible:=True;   
  con.show; 
end;

Esta es la función.
El resultado una ventana superpuesta en la que no puedo usar ningun componente previamente creado en TFormConv.

TformConv es esto

Código Delphi [-]
TFormConv = class(TForm)
    Memo1: TMemo;
    Nick: TLabel;
    ip: TLabel;
    LabNick: TLabel;
    LabIP: TLabel;
    send: TButton;
    eSend: TEdit;

Espero poder solucionar esto antes de que me quede sin pelo, jaja por que lo estoy arrancando a tirones

[Juanitol]

Mierdaaaaaaaaaa

Gracias por todo el problema era que tenia el Enabled:=False;

Perdon por todo, Gracias!!

[Juanitol]

Bien ese era el problema por el cual en la ventana no se podia interactuar pero cuando ejecuto la creación en esta función siguo con el mismo problema

Código Delphi [-]
procedure TForm1.EscuchadorAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
con:TFormCOnv;
dato:String ;
i,op: Integer;
begin
  op:=0;
  dato:=ClientSocket.Receiveln();
  if (dato<>'') then
    begin

      if conversaciones.Count>0 then
        begin
          showmessage('Hay una iwal');
          for i:=0 to conversaciones.Count do
          if CompareStr(conversaciones.Strings[i],dato)=0 then op:=1;
          end;
      end;
if op=0 then begin
Button3.Click;     // Manera numero 300 de la que he intentado crear el formulario
  end;
Escuchador.Active:=True;
end;

Seguramente la función esta sea de coña. Se admiten consejos jaja

[[basti]]

Empezado por Juanitol

con.Parent:=con;

Esta línea no me suena nada bien, estás diciéndole que el form "con" contiene al form "con", no es muy lógico. Prueba a quitársela.