Ver Mensaje Individual
  #1  
Antiguo 29-10-2014
ander ander is offline
Miembro
 
Registrado: may 2003
Posts: 56
Reputación: 21
ander Va por buen camino
Generar evento en libreria

Hola a todos.
Lo que quiero hacer es generar un evento de un componente existente (ej. OnTimer) en una libreria.
Como podria hacerlo ?? He generado esta libreria y no doy pico en bola.
Si alguien pudiese decirme como se hace con un ejemplo se lo agradeceria.
Código Delphi [-]

library My_Dll;

 uses
  System.SysUtils,
  System.Classes,winapi.windows,Vcl.Dialogs,Vcl.ExtCtrls;

 var i:Integer;

{$R *.res}

procedure TiemTimer;
begin
 inc(i);
 ShowMessage(inttostr(i)) ;
end;

procedure pruebaTiempo ; stdcall;
var
 Tiempo:TTimer;
 pp:TComponent;
begin
  i:=0;
  Tiempo:=TTimer.Create(pp);                // Esto no creo que esté bien
  Tiempo.Name:='Tiempo'+IntToStr(I);
  tiempo.Interval:=5000;
  tiempo.Enabled:=True;
  tiempo.OnTimer:=TiemTimer;               // Error: Incompatible types: 'method pointer and regular procedure'
end;                                                

exports pruebaTiempo;

begin

end.

Gracias de antemano
Responder Con Cita