Eventprocedur bei virtuellen Objekten

[Sherlock]

Also, erstens ist der nicht virtuell erzeugt, sondern wirklich und wahrhaftig da, nur eben (jetzt kommt der korrekte Fachausdruck) dynamisch erzeugt.
Nun zur eigentlichen Frage: Du kannst einem Event wie zB Button.OnClick ganz einfach jede Methode zuweisen, die die korrekte Signatur hat. In diesem Fall procedure BeleibigerName(Sender:TObject); . Was zu Button.OnClick := BeleibigerName; wird.

Sherlock

[DeddyH]

Öhm... nö, es darf keine reguläre Prozedur, sondern muss eine Methode sein. Zur Not muss man sich eben eine Dummy-Klasse erstellen, die diese Methode dann implementiert.

[Helmi]

Zitat von DeddyH:

Öhm... nö, es darf keine reguläre Prozedur, sondern muss eine Methode sein. Zur Not muss man sich eben eine Dummy-Klasse erstellen, die diese Methode dann implementiert.

warum eigentlich?

Über das bin ich auch schon mal geflogen - aber theoretisch könnt das doch egal sein, ob es eine reguläre Prozedur oder eine Methode ist

[Sir Rufo]

Zitat von Helmi:

Zitat von DeddyH:

Öhm... nö, es darf keine reguläre Prozedur, sondern muss eine Methode sein. Zur Not muss man sich eben eine Dummy-Klasse erstellen, die diese Methode dann implementiert.

warum eigentlich?

Über das bin ich auch schon mal geflogen - aber theoretisch könnt das doch egal sein, ob es eine reguläre Prozedur oder eine Methode ist

Natürlich wäre es egal, aber wenn der Event als TFooEvent = procedure ... of object; deklariert ist, dann muss es eine Methode sein.

Bei den neueren Delphis könnte man auch TFooEvent = reference to procedure ...; nehmen, dann frisst der alles, bis auf den OI, der wird da wohl nicht mitspielen.

[Helmi]

D. h. einzig die Definition ist "schuld" daran?

[Ykcim]

Hallo Zusammen,

ich habe es jetzt umgesetzt bekommen. Ich musste tatsächlich eine DummyKlasse erstellen und einbinden, weil zwei TMS-Klassen in ein und derselben Unit nicht vertrugen. Zwei Mal den gleichen Namen für unterschiedliche Typen...

Aber jetzt klappt es.

Danke
Patrick

[Sir Rufo]

Zitat von Ykcim:

Hallo Zusammen,

ich habe es jetzt umgesetzt bekommen. Ich musste tatsächlich eine DummyKlasse erstellen und einbinden, weil zwei TMS-Klassen in ein und derselben Unit nicht vertrugen. Zwei Mal den gleichen Namen für unterschiedliche Typen...

Aber jetzt klappt es.

Danke
Patrick

Nein, muss man nicht, wenn man den Typen exakt mit Unitnamen benutzt, dann ist das Wumpe.

Delphi-Quellcode:

uses
  Foo, 
  Bar;
var
  LVar1 : TFooBar; // ist Bar.TFooBar, da Bar nach Foo in den uses
  LVar2 : Foo.TFooBar;
  LVar3 : Bar.TFooBar;
  
procedure UseFooBar( Val : Foo.TFoobar ); overload;
procedure UseFooBar( Val : Bar.TFooBar ); overload;

[himitsu]

Bei Eventzeigern für Methoden kann man auch Klassen-Methoden (class procedure ) übergeben, dann braucht man zwar immernoch eine Klasse (wobei man seinen Code natürlich schön nach OOP zusammenfasst),
aber man braucht dann nicht unbedingt eine Instanz der Klasse.

[Sir Rufo]

Zitat von Helmi:

D. h. einzig die Definition ist "schuld" daran?

Ja, sehr ungewöhnlich für eine als typsicher bekannte Sprache ...

[Helmi]

Zitat von Sir Rufo:

Zitat von Helmi:

D. h. einzig die Definition ist "schuld" daran?

Ja, sehr ungewöhnlich für eine als typsicher bekannte Sprache ...

Bazinga