Zitat von
BAMatze:
Delphi-Quellcode:
function TContainer.LabelPosition_anpassen(ReferenzLabel: TLabel): TLabel;
begin
result.Left := ReferenzLabel.Left + ReferenzLabel.Width;
end;
...
Deswgen auch keine
AV (denke mal ist die AccessValuation). Die Komponenten existieren wirklich. Aber deine Möglichkeit sollte eigentlich auch funktionieren.
nennt sich AccessViolation (Zugriffsverletzung), hat nix mit Valuation zu tun
zu dem eigentlichen Problem...die Komponente result existiert nicht...du musst den Pointer von result erstmal einem label zuweisen.
Delphi-Quellcode:
function TContainer.LabelPosition_anpassen(ReferenzLabel: TLabel): TLabel;
begin
result:=TContainer.GetLabel(...);//muss halt implementiert werden :)
//z.B. mit if (TContainer.Components[i] is TLabel) then result:=(TContainer.Components[i] as TLabel)
result.Left := ReferenzLabel.Left + ReferenzLabel.Width;
end;