Hi,
habs das jetzt nochmal so versucht:
Delphi-Quellcode:
procedure Tfmain.PlugInClick(Sender: TObject);
var
mApp: TApp;
iPlg: IPlugIn;
begin
mApp := TApp.Create;
with PlugInList
do // Hier kommt die AV!!!
begin
Items[(Sender
as TTBXCustomItem).Tag].QueryInterface(IPlugIn, iPlg);
end;
if Assigned(iPlg)
then
begin
iPlg.Execute(mApp);
end;
iPlg :=
nil;
FreeAndNil(mApp);
end;
Anscheinend liegt es irgendwie an der PlugInList ?!?
[edit] Argh. Ich wollte eigentlich den Beitrag oben editieren
[/edit]