Anchors funktionieren nicht

Rund um die LCL und andere Komponenten
Antworten
Nils
Beiträge: 130
Registriert: Mo 28. Mai 2007, 12:36
Kontaktdaten:

Anchors funktionieren nicht

Beitrag von Nils »

Hi,

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;

Christian
Beiträge: 6079
Registriert: Do 21. Sep 2006, 07:51
OS, Lazarus, FPC: iWinux (L 1.x.xy FPC 2.y.z)
CPU-Target: AVR,ARM,x86(-64)
Wohnort: Dessau
Kontaktdaten:

Beitrag von Christian »

Auf Tabs funktionieren keine Anchors. Ich glaub nicht das das was mit "im Code erstellten" zu tun hat. Setz ein panel mit alClient drunter, dann dürfts gehn.
W.m.k.A.h.e.m.F.h. -> http://www.gidf.de/

Nils
Beiträge: 130
Registriert: Mo 28. Mai 2007, 12:36
Kontaktdaten:

Beitrag von Nils »

Ich habe ein Panel drunter (siehe fPanel).
Meine Musik: spiker-music.net

Antworten