Ich habe eine Klasse mit folgendem Constructor:
Delphi-Quellcode:
Constructor CStunde.create(t,l,h,w: integer; Form: TForm);
var
i: byte;
begin
Panel:= TPanel.Create(nil);
// panel.OnClick := myclick(panel);
with panel do
begin
Parent:= Form;
Top:= t;
Left:= l;
Height:=h;
Width:=w;
color:=clblue;///////////////////////////////
end;
for i:=1 to 4 do
begin
list[i]:= TLabel.Create(nil);
with list[i] do
begin
font.Size:=16;
Parent:= Panel;
left:= 10;
top:= i*20;
end;
end;
List[1].caption:='Lehrer';
List[2].Caption:='Schüler';
List[3].Caption:='Fach';
List[4].Caption:='Sonst';
end;
Delphi-Quellcode:
CStunde = class(Tobject)
public
Panel: TPanel;
List : array[1..4] of TLabel;
id: string;
Constructor Create(t,l,h,w: integer; form: TForm);
end;
Das Funktioniert schon gut, nur hat das Panel nicht die gewünschte Farbe.
Der Aufruf:
sp := Cstunde.Create(50,50,120,200,Form1);