Moin Chris,
wozu soll das
pResult := @cComp;
eigentlich gut sein?
Das Ergebnis Deiner Methode ist dadurch die Adresse des Pointers der Komponente, und nicht die Komponente selber.
Also müsstest Du das Ergebnis von GetComponent dereferenzieren, damit es funktioniert:
z.B. so:
Code:
cComp := TComponent(aApplication.GetComponent('btnExport')[b][color=red]^[/color][/b]);
if ((cComp <> nil) and (cComp is TButton)) then begin
(cComp as TButton).OnClick := ehHandler.OnBtnClick;
end;
oder so:
Code:
cComp := TComponent(aApplication.GetComponent('btnExport'));
if ((cComp[b][color=red]^[/color][/b] <> nil) and (cComp[b][color=red]^[/color][/b] is TButton)) then begin
(cComp[b][color=red]^[/color][/b] as TButton).OnClick := ehHandler.OnBtnClick;
end;