Hallo

Ich habe mir diese Klasse angelegt:

markieren

Delphi-Quellcode:

CStunde = class(Tobject)
 public
 Panel: TPanel;
 list: array[1..4] of TLabel;
 procedure Create(t,l,h,w: integer; form: TForm);

end;

(Hat noch keine Lösch-Methode, aber das Problem gehe ich später an. )

zusammenfalten · markieren

Delphi-Quellcode:

Procedure CStunde.create(t,l,h,w: integer; Form: TForm);
var
i: byte;
begin

Panel := TPanel.Create(nil);

 with Panel do
  begin
  Parent:= Form;
  Top:= t;
  ...
  color:=clred;
  end;

for i:=1 to 4 do
  begin
  list[i]:= TLabel.create(nil);
  list[i].Parent:= Panel;
  list[i].left:= 10;
  end;
end;

Wenn ich das Create mit

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
sp: CStunde;
begin
sp.Create(50,50,200,250,Form1);
end;

aufrufe wird das Panel mit den Labels schön angezeigt, wenn ich das Formular schließe bekomme ich eine AV, was wahrscheinlich am fehlenden destroy oder free liegt, aber dass ist nicht mein primäres Problem.

Wenn ich es aber als

markieren

Delphi-Quellcode:

var
  Form1: TForm;
  sp: CStunde;

global anlege bekomme ich beim create dann eine AV.

Weiss jemand, warum dass so ist und wie ich es trotzdem global anlegen kann?

Nikolas

Hallo,

vielleicht, weil Du Deine Klasse nicht instanziierst?

Gruß
xaromz

sp := CStunde.Create(50,50,200,250,Form1);

Stimmt, klingt einleuchtend. Und eigentlich weiss ich das auch. (Siehe Create-implementation)

Wenn ich das jetzt aber so mache bekomme ich unabhängig von der Art der Deklaration von sp ein freundliches:

Zitat:

E2076 Diese Form des Methodenaufrufs ist nur für Klassenmethoden erlaubt

Versteht das jemand?

Danke für die Antworten bis jetzt.

Nein, erst wenn er einen Constructor erstellt, also:

markieren

Delphi-Quellcode:

Type
  CStunde = class(Tobject)
  Public
    Panel: TPanel;
    list: array[1..4] of TLabel;
    Constructor Create(t,l,h,w: integer; form: TForm);
  End;
{...}

Bye Christian

Stimmt, haben wir wohl Alle übersehen.

Dankeschön. Ich habe anscheined zu lange nichts richtiges mehr programmiert.

Danke an alle, die mir weitergeholfen haben. Ich liebe dieses Forum