Thema: Delphi Probleme mit Form.Create

Einzelnen Beitrag anzeigen

Flofu

Registriert seit: 26. Aug 2004
Ort: Singhofen
9 Beiträge
 
Delphi 5 Standard
 
#1

Probleme mit Form.Create

  Alt 28. Aug 2004, 23:11
Hi habe ein kleines Problem. Möchte der Form.Create Prozedur noch einen Parameter übergeben zum weiterarbeiten, das lehnt mein Programm ab: der Code:

type
TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject; uebergabe: Byte);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
Panel : array of TPanel;
end;

var
Form2, FormKnopf1, FormKnopf2 : TForm2;

implementation

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm2.FormCreate(Sender: TObject; uebergabe : byte);
var i : Byte;
begin
for i := 1 to uebergabe do begin
Panel[i] := TPanel.Create(self);
with Panel[i] do begin
parent := self;
top := 100;
left := 25 +((i-1)*35);
height := 33;
width := 33;
caption := IntTo Str(i);
end;
end;
end;

Danke schon mal
  Mit Zitat antworten Zitat