Ver Mensaje Individual
  #3  
Antiguo 10-05-2010
Thoronluin Thoronluin is offline
Miembro
 
Registrado: feb 2009
Posts: 39
Reputación: 0
Thoronluin Va por buen camino
Hola Neftali:

Ante todo muchas gracias por tu pronta respuesta. Con ella, más los dos ejemplos que ví en tu web las cosas me han quedado más claras.

Corrígeme si me equivoco. Puedo:

O incluir el Memo en la declaración del Thread:

Código Delphi [-]
TPruebaMensaje = class(TThread)
   private
   protected
   public
      Memo1: Tmemo;
      procedure Execute; override;
      procedure UpdateProgress;
 end;

O usar la función Synchronize para ejecutar la acción:

Código Delphi [-]
Procedure TPruebaMensaje.Execute;
begin
   Synchronize(Ventana_Principal.Memo1.Lines.Add('pepe'));
end;

O definir la función UpdateProgress como perteneciente a Ventana_Principal y ejecutar:

Código Delphi [-]
Procedure TPruebaMensaje.Execute;
begin
   Synchronize(UpdateProgress);
end;

Muchas gracias por tu ayuda, estoy ansioso por probarlo mañana a primera hora .

Saludos

Última edición por Thoronluin fecha: 10-05-2010 a las 23:43:03. Razón: Corrección
Responder Con Cita