Ver Mensaje Individual
  #5  
Antiguo 11-01-2006
Avatar de NickName
NickName NickName is offline
Miembro
 
Registrado: may 2003
Ubicación: Guerrero, México
Posts: 96
Reputación: 22
NickName Va por buen camino
Thumbs up Si se puede hacer

Hola.

Pues en vista de que no hay creo yo casos similares, le segui buscando y di con la respuesta y era algo sencillo, pero a falta de conocimiento entra la desesperacion.

Bueno ahora si puedo ver los mensajes sin ningun problema en el servidor con el metodo Show o ShowModal de mi formulario.

Pongo el codigo que cambio del primer mensaje que puse:
Código Delphi [-]
                     If CommBlock.NombreReceptor = 'SERVIDOR' Then
                       Begin  // destinatario el servidor
                         Paquete:=CommBlock;
                         AThread.Synchronize(MostrarMensaje); esto es lo que cambio
                       End

al procedimiento de mostrarmensaje solo le quite el parametro:
Código Delphi [-]
Procedure TFrm_Principal.MostrarMensaje;
Begin
     Frm_Mensaje.Label1.Caption:= Paquete.NombreUsuario;
     Frm_Mensaje.cxMemo1.Lines.Add('Mensaje: ' + Paquete.Msg);
     Frm_Mensaje.ShowModal;
End;

Y tube que usar AThread.Synchronize ya lo habia intentado pero el procedimiento de MandarMensaje tenia parametro y asi no se puede mandaba este error:
[Error] Principal.pas(426): There is no overloaded version of 'Synchronize' that can be called with these arguments
lo quite y jejeje Papitas...
__________________
Saludos...
Responder Con Cita