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