Du fängst ohne Projekt an.
Datei -> Neu ->
ActiveX ->
ActiveX-Bibliothek (also eine
DLL)
dann
Datei -> Neu ->
ActiveX -> Automatisierungsobjekt
Name der CoClass: "PdfButton"
Es wird der TLB-Editor angezeigt.
Du wählst das Interface "IPdfButton" und wählst "neue Methode"
Die Methode bekommt den Namen "Clicked"
Auf der Seite Parameter fügst du 2 neue Parameter hinzu:
Name: "buttonText" Typ: BSTR
Name: "pdfMachineviewer" Typ: IDispatch *
Im TLB-Editor drückst du auf
Implementierung aktualisieren
Delphi generiert dir folgenden Sourcecode:
Delphi-Quellcode:
procedure TPdfButton.Clicked(const buttonText: WideString;
const pdfMachineviewer: IDispatch);
begin
// und hier musst du dann weitermachen
end;