OnCreate bei eigener Klasse?

[Bronko]

Kann man einer selbst erstellten Klasse, die von TObject abgeleitet wurde, irgendwie die Eigenschaft OnCreate mitgeben, die dann eine Prozedur aufruft, die bei der Erstellung automatisch ausgeführt wird?

[Steve]

Delphi-Quellcode:

USES
  Classes;

TYPE
  TMyType = CLASS(TObject)
  PRIVATE
    FOnCreate : TNotifyEvent;
  PUBLISHED
    CONSTRUCTOR Create;
    PROPERTY OnCreate : TNotifyEvent READ FOnCreate WRITE FOnCreate;
  END;

implementation

CONSTRUCTOR TMyType.Create;
BEGIN
  INHERITED;
  IF Assigned(FOnCreate) THEN FOnCreate(NIL);
END;

..oder so ähnlich...

Gruß
Stephan

[Sanchez]

Besser wäre:

Delphi-Quellcode:

constructor TMyType.Create;
begin
  inherited;
  if Assigned(FOnCreate) thenFOnCreate(SELF);
end;

Dann gibts das Objekt das erzeugt wurde auch gleich mit.

grüße, daniel

[Bronko]

Danke schön

[phlux]

Es reicht einfach in der published Section

Delphi-Quellcode:

published
  property onCreate;

hinzuschreiben, da es nen vererbtes Ereignis ist brauch man da selbst nichts mehr rumzuwurschteln.

mfg phlux

[mirage228]

Zitat von phlux:

Es reicht einfach in der published Section

Delphi-Quellcode:

published
  property onCreate;

hinzuschreiben, da es nen vererbtes Ereignis ist brauch man da selbst nichts mehr rumzuwurschteln.

mfg phlux

Hi,

Ähm... ich glaube TObject hat kein OnCreate...

mfG
mirage228

[phlux]

Stimmt In letzter Zeit geb ich ja nur noch Müll von mir habs grad nachgeguckt, hast recht, existiert nicht in der Basisklasse, aber solltest du irgendwie mal was von TPanel, TLabel, etc. ableiten dann klappt das, weils halt da schon integriert ist, so nochmal gerettet

[Muetze1]

Moin!

Ähm, eine Frage Jungs: Wie stellt ihr euch das denn vor??

Mal so als Abhandlung über den Ablauf, vielleicht versteht ihr dann meine Bedenken:

1. Man kann eine Methode dem OnCreate erst zuweisen, wenn man die Klasse instanziiert habe...
2. Das OnCreate wird im Constructor der Klasse aufgerufen, wenn eine Methode dem OnCreate zugewiesen wurde...

Nochmal zur Verdeutlichung:

Delphi-Quellcode:

Var
  Test : TTest;
Begin
  Test := TTest.Create;    // <-- hier wird OnCreate aufgerufen, wenn vorhanden
  Test.OnCreate := MyProc; // <-- hier kann erst OnCreate zugewiesen werden...
End;

Bei TCustomForm Elementen wird das OnCreate ausgelöst durch das erhalten der WM_CREATE Botschaft von Windows - die nach dem CreateWindow() Aufruf gesendet wird. In dieser Message muss man das erstellen des Fenster, grob gesagt, "bestätigen". Daher kommt
das OnCreate nach dem Constructor und vor dem eigentlichen endgültigen existieren des Fensters...

MfG
Muetze1

[Steve]

Zitat von Muetze1:

1. Man kann eine Methode dem OnCreate erst zuweisen, wenn man die Klasse instanziiert habe...

Logisch... So gehts, wenn man schreibt ohne zu denken
Gut vergesst alles, was ich da oben von mir gegeben hab, ist logischerweise Unfug

Gruß
Stephan

[Stevie]

Ist ja eigentlich widersprüchlich die ganze Sache. Wofür benötige ich bei einem TObject ein OnCreate-Event?
Wenn irgendwas beim Create ausgeführt werden soll, dann ab ins Create. Wenn aber der Benutzer, der solch ein Objekt verwendet, noch was beim Create machen will, dann leite es doch von TComponent ab. Denn nur dann kann man auch im Designmodus das OnCreate setzen.
Was meint ihr?