Habe es jetzt so gemacht:
Delphi-Quellcode:
...
TmpStr := TmpStr + ' - ClassName: ' + Sender.ClassName;
if (Sender is TComponent) then
begin
if Assigned((Sender as TComponent).Owner) then
TmpStr := TmpStr + ' - OwnerName: ' + (Sender as TComponent).Owner.Name;
end;
...
Damit bekomme ich den Formularnamen. Das ist gut
