Ja, so hab ich das auch gemacht gehabt.
Delphi-Quellcode:
procedure TWinAcceleratorKeyRegistry.RegisterReceiver(const ARoot: IRoot; const AReceiver: IAcceleratorKeyReceiver);
begin
if FFormRegistry = nil then
FFormRegistry := TDictionary<IRoot, TAcceleratorKeyReceivers>.Create;
if not assigned(ARoot) then exit;
if not FFormRegistry.ContainsKey(ARoot) then
FFormRegistry.Add(ARoot, TAcceleratorKeyReceivers.Create);
FFormRegistry[ARoot].RegisterReceiver(AReceiver);
end;
Das ist wohl erst seit Berlin der Fall (
https://www.google.de/#q=TAcceleratorKeyReceivers+leak) und tritt komischerweise auch auf, wenn man kein & im Text verwendet, um Kürzel zu definieren. Ich habe es damals auch nicht genauer verfolgt, aber beim Suchen nach eigenen Leaks, nervt es dauernd irgendwelche Leckagen von Embarcadero zu finden
Christian