Event i Dll

Kan du ikke bare lave en callback-procedure?

type TWebBrowserNavigateComplete2 = procedure(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant) of object;

Så laver du en procedure af samme type og så sætte OnNavigateComplete2 lig den?

procedure NuErDetSlut(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);

OnNavigateComplete2 := NuErDetSlut;

Borrisholt har også skrevet en god artikel om Callback procedurer...
http://www.pythia.dk/artikler/vis_artikel.php?id=22

Øh, det ved jeg ik helt...

Jeg vil bare fange et event der allerede existere fx timer1.onTimer...Det kan jeg ikke rigtig se hvordan jeg gør ud fra det eksempel du har lavet....

procedure MinOnTimerEvent(Sender: TObject);
begin
  {Først skal vi lave en procedure som Timer'en kan bruge.}
  {Den skal være defineret som "procedure (Sender: TObject)"}

  //Her kommer koden der udføres
  ShowMessage('Davs, nu er din timer færdig!');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  {Før ovenstående procedure kan bruges af timer'en skal Timer'ens OnTimer-event sættes til den}
  {Det ligesom når du tildeler en variabel en værdi, altså med ":="}

  Timer1.OnTimer := MinOnTimerEvent;
end;

Hjalp det lidt?

Nej, desværre :)
Det jeg har brug for at finde ud af er hvordan man laver et event i en dll hvor man ikke har en form at "binde" det til...

Hmmm... Kan du ikke eventuelt sende projektet til mig... Jeg har aldrig rigtig leget med dll'er, så selve opbygningen af dll'er er lidt problemet... Tror dog godt jeg kan løse dit problem (med forbehold)! ;)

hermandsen@softhome.net