Delphi-Quellcode:
procedure THixHistograph.SetAParent( AParent: TWinControl);
var
lastParent : TWinControl;
begin
lastParent := inherited Parent;
inherited Parent := AParent;
if (lastParent = nil) or not visible then Exit;
end;
Kannst Du mir sagen, was die letzte Zeile bedeutet/machen soll?