eigener klasse

[LoL]

hi

ich hab folgenden code:

Delphi-Quellcode:

unit u_prog
...
type Work_Panel = Class ( TPanel )
  procedure button_creation;
end;
...

var mybutton : TButton;

procedure Work_Panel.button_creation;
begin
  mybutton := TButton.create(self);
  mybutton.parent := self;
end;

procedure CreateComponents;
begin
  Work_Panel.button_creation;
end;

CreateComponents wir von der haupt unit aus in form.oncreate aufgerufen.
ich bekomme folgende fehler meldung:
'[Error] u_prog.pas(283): This form of method call only allowed for class methods'

ich kann damit aber nicht wirklich was anfangen. wer kann mir helfen?

gruß christoph

[LoL]

hat denn davon niemand eine ahnung? *nachobenhohl*

[neolithos]

Sag erst mal was das werden soll?

[Luckie]

Bitte unterlass das. Dein Post ist gerade mal 25 Minuten alt!

[LoL]

hi

tut mir leid luckie sorry

ich hab mir die klasse erstellt um darauf meine anderen komponenten zu erstellen, so dass ich diese klasse unabhängig vom zuverwendeten programm bzw. formular funktioniert!

gruß christoph

[Robert Marquardt]

Gemeinerweise hat Tform eine Methode CreateComponents. Die wird aufgerufen und bekommt den Schluckauf.
Ausserdem solltest du deine Funktion nicht im OnCreate aufrufen. Das ist zu frueh.

[LoL]

hi

es gibt die methode CreateComponent aber nicht CreateComponents.
und warum sollte ich die procedure nicht in OnCreate aufrufen bisher hats immer geklappt?
ich werde aber besonders auf der fehlermeldung nicht schlau!

mfg christoph

[neolithos]

Ich weiß zwar immer noch nicht was das soll!
Aber ein vorschlag...

Delphi-Quellcode:

unit u_prog 
... 
type Work_Panel = Class
  class procedure button_creation(Self : TPanel); 
end; 
... 

var mybutton : TButton; 

class procedure Work_Panel.button_creation(Self : TPanel);
begin 
  mybutton := TButton.create(self); 
  mybutton.parent := self; 
end; 

procedure CreateComponents; 
begin 
  Work_Panel.button_creation; 
end;

Und CreateComponents ganzt du in OnCreate aufrufen.

[LoL]

thx

das wars

gruß christoph

[Robert Marquardt]

Du hast mich verwirrt. Typen IMMER mit T vorne schreiben!
Der Aufruf Work_panel.button_creation waere nur als class function erlaubt.
Als solcher kann er aber nicht funktionieren. class functions kann man naemlich ohne Instanz des Objekts aufrufen. Das Erzeugen der Buttons geht dann schief. Self ist dann namenlich nicht vorhanden.

Du musst CreateComponents zu einer Methode deiner Form machen (auf der du wahrscheinlich eine Work_panel genannte Komponente hast).

Mit zu frueh meine ich das bei OnCreate Loaded noch nicht ausgefuehrt wurde.
Die Komponenten auf der Form sind noch nicht vollstaendig initialisiert.
Ich mache es immer im OnActivate (mit einer booleschen Variablen abgesichert damit es nur einmal aufgerufen wird).