wenn ich mir Anchors über das Formular setze, funktionieren sie. Wenn ich dies allerdings via Code mache (TabSheets mssen eben erstellt werden, genauso wie der Inhalt von ihnen), sind die Edits grundsätzlich viel zu breit. Wieso ?
Code: Alles auswählen
fPanel := TPanel.Create(Self);
with fPanel do
begin
Parent := TWinControl(Self);
Align := alClient;
Anchors := [akTop,akLeft,akRight,akBottom];
Show;
end;
for i := 0 to 5 do
begin
fEdit := TEdit.Create(fPanel);
with fEdit do
begin
Parent := fPanel;
Left := 212;
Top := (24*i)+2;
Width := 10; // <-- extra vorher gesetzt
Anchors := [akTop,akLeft,akRight]; // <--
Text := '';
Show;
end;
end;