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:

Delphi-Quellcode:

sp := Cstunde.Create(50,50,120,200,Form1);

[mkinzler]

Versuch mal

Delphi-Quellcode:

panel.Update;

BTW.Es scheint ein Hobby von dir zu sein Memoryleaks zu erzeugen.

Delphi-Quellcode:

Panel:=  TPanel.Create(Self);

Delphi-Quellcode:

list[i]:= TLabel.Create(Self);

[Nikolas]

Danke für deine weitere Hilfe.

Das Problem war dieses:
Ich hatte spaßeshalber vorhin mal ein XPManifest aufs Form gezogen, aber gleich wieder gelöscht. Aber die Unit XPMan war immer noch eingebunden. Nachdem ich diese wieder entfernt hatte, hat alles so funktioniert wie es sollte. :wall: