Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Problema Creando un Form Dinamico (https://www.clubdelphi.com/foros/showthread.php?t=50331)

Juanitol 14-11-2007 21:59:47

Problema Creando un Form Dinamico
 
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 14-11-2007 22:07:31

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 14-11-2007 22:11:23

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 14-11-2007 22:18:22

Mierdaaaaaaaaaa

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

Perdon por todo, Gracias!!

Juanitol 15-11-2007 00:05:13

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 15-11-2007 13:54:28

Cita:

Empezado por Juanitol (Mensaje 246261)
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.


La franja horaria es GMT +2. Ahora son las 21:18:27.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi