ButtonKlick ermitteln und wiedergeben

[VT-DA]

Hi,

Ich versuche verzweifelt eine Funktion zu erstellen die herausfindet ob ein button geklickt wurde.
Dabei kann ich aber wie sonst keine procedure nehmen weil ich mehrere Buttons habe.
Hier mal meine Funktion an der ich werkelte:

Delphi-Quellcode:

function ButtonClick(Obj: TButton): Integer; stdcall;
var i: Integer;
begin
  for i := Low(ButtonArray) to High(ButtonArray) do
  begin
    if Obj = ButtonArray[i].BHandel then
    begin
      if ButtonArray[i].BHandel.OnClick then
        result := 1
      else
        result := 0;
    end;
  end;
end;

Hier jetzt bei der Funktion sieht man das die Funktion durch eine DLL aufgerufen wird.
ButtonArray ist außerdem ein Dynamisches array wo die Handels gespeichert werden.

Doch zu meinem Problem. In der zeile "if ButtonArray[i].BHandel.OnClick then" sagt er mir das Parameter fehlen. Ich schetze mal das dass Fensterhandel fehlt. Doch ich habe bis jetzt keine möglichkeit gefunden wie ich das Fensterhandel übergeben soll.

Mfg