![]() |
Codezeile wird anscheinend nicht ausgeführt.
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:
Das Funktioniert schon gut, nur hat das Panel nicht die gewünschte Farbe.
CStunde = class(Tobject)
public Panel: TPanel; List : array[1..4] of TLabel; id: string; Constructor Create(t,l,h,w: integer; form: TForm); end; Der Aufruf:
Delphi-Quellcode:
sp := Cstunde.Create(50,50,120,200,Form1);
|
Re: Codezeile wird anscheinend nicht ausgeführt.
Versuch mal
Delphi-Quellcode:
BTW.Es scheint ein Hobby von dir zu sein Memoryleaks zu erzeugen.
panel.Update;
Delphi-Quellcode:
Panel:= TPanel.Create(Self);
Delphi-Quellcode:
list[i]:= TLabel.Create(Self);
|
Re: Codezeile wird anscheinend nicht ausgeführt.
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: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:49 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz