Ver Mensaje Individual
  #5  
Antiguo 15-11-2007
Juanitol Juanitol is offline
Registrado
 
Registrado: nov 2007
Posts: 5
Reputación: 0
Juanitol Va por buen camino
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
Responder Con Cita