Codezeile wird anscheinend nicht ausgeführt.

[Nikolas]

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);