Hallo,

ich möchte ein spielfeld generieren.
Für jedem spieler soll auf dem formular ein panel mit einem labelededit feld einerm button und einer pagecontrol komponente mit 2 registerkarten sein.

Die panels mit den labeledit feld und dem Button funktionieren will ich allerdings die pagecontrol komponente erzeugen wirft er eine exception
Wenn ich mir danach das formular anschaue sind auf dem label nur die panel und das labeledit feld zu sehen aber kein button mehr. Der bevor ich die pagecontrol komponente eingefügt habe noch zu sehen war?

Was mache ich falsch?

Hier der Quellcode

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm_Game.FormShow(Sender: TObject);
var i,j : integer;
const TabTitles: array[0..1] of ShortString = ('Punkte', 'Feld');

begin
form1.Visible := false;
form1.WindowState := wsMaximized;
if erzeugt = false then
  begin
   setlength(apanel, start.Anz);
   setlength(alabel, start.anz);
   setlength(abitbtn, start.anz);
   for i := 0 to high(apanel) do
    begin
     apanel[i] := Tpanel.Create(self);
     with apanel[i] do
      begin
        parent := self;
        Bevelouter := bvNone;
        autosize := true;
        Caption := '';
        height := 50;
        Width := 115;
        if ((i mod 2) = 0 )then left := 25 else left := 175;
        top := 85 +(100* (i div 2));
        visible := true;

      end;
     alabel[i] := TLabeledEdit.Create(self);
     with alabel[i] do
      begin
        parent := apanel[i];
        text := inttostr(aplayer[i].stand);
        height := 25;
        Width := 75;
        left := 0;
        top := 25;
        autosize := false;
        with EditLabel do
          begin
            caption := aplayer[i].name;
            height := 20;
            width := 75;
          end;
      end;
      abitbtn[i] := TBitBtn.Create(self);
      with abitbtn[i] do
        begin

          Caption := 'P';
          height := 50;
          Width := 45;
          left := 75;
          top := 0;
        end;

      aPageControl[i] := TPageControl.Create(self);
      with aPageControl[i] do
        begin
          parent := apanel[i];
          for j := Low(TabTitles) to High(TabTitles) do
            with TTabSheet.Create(aPageControl[i]) do
               begin
                  PageControl := aPageControl[i];
                  Name := 'ts' + TabTitles[j];
                  Caption := TabTitles[j];
               end;
            end;
    end;
     erzeugt := true;
  end;
end;

[edit=Christian Seehase]Delphi-Tags korrigiert. Mfg, Christian Seehase[/edit]

Wie groß hast du aPageControl dimensioniert?
[Edit: Problem gelöst http://www.delphi-forum.de/viewtopic...a697ecf25f0d9]