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
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]