Labelverschiebung verschiebt alle Komponenten

[_frank_]

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;