Wie findet man am besten eine AV in der BPL

[cramer]

Habe es mit F7 getestet, muß jetzt aber leider aus Termingründen Schluß machen:

Nach einigen inheriteds aufrufen der genutzten Controls hängt es in dieser procedure.

procedure TWinControl.UpdateShowing;
var
ShowControl: Boolean;
I: Integer;
begin
ShowControl := (FVisible or (csDesigning in ComponentState) and
not (csNoDesignVisible in ControlStyle)) and
not (csReadingState in ControlState);
if ShowControl then
begin
if FHandle = 0 then CreateHandle; // <-- Hier hängt es sich nach ein paar Durchgängen auf.
if FWinControls <> nil then
for I := 0 to FWinControls.Count - 1 do
TWinControl(FWinControls[I]).UpdateShowing;
end;
if FHandle <> 0 then
if FShowing <> ShowControl then
begin
FShowing := ShowControl;
try
Perform(CM_SHOWINGCHANGED, 0, 0);
except
FShowing := not ShowControl;
raise;
end;
end;
end;