Vielen Dank für die Antwort,
das mit der Funktion ist mir schon klar. Ich habe mich nicht genau genug und präzise ausgedrückt
.
In den folgenden Zeilen ist der Aufruf der attachCallBack Routine in JavaScript dargestellt.
Code:
JavaScript example:
objPlugIn.attachCallBack("ondragover",OnDragOver);
function OnDragOver()
{
// Hier der Code
}
Die Function OnDragOver hat keinen Rückgabewert. Eine Funktion in Delphi hat meines Wissens immer einen Rückgabewert.
Eine Funktion kann man einer OLEVariant Variable zuordnen. Bei einer Procedur ist mir das noch nicht gelungen.
Der folgende Delphi Code führt zu einem Fehler --Falscher Parameter--.
Ich habe außer word auch andere Typen versucht. Kein Erfolg
Delphi-Quellcode:
function test():word; stdcall
begin
form1.label1.caption := 'test';
end;
procedure TForm1.Button3Click(Sender: TObject);
var varCallBack : OLEvariant;
F: function():word; stdcall;
begin
F := test;
varCallBack := F;
self.Authentic1.attachCallBack('ondragover', F);
end;
Es stellen sich mir zwei Fragen.
1. gibt es eine funktion die vergleichbar der javaScript Funktion ist?
2. Wie kann ich eine Procedure einer OLEVariant Variable zuordnen?
3. Bin ich total auf dem Holzweg??
Nochmals Danke für die Hilfe!!