Eventprocedur bei virtuellen Objekten

[Ykcim]

Hallo Zusammen,

wenn ich einen Button auf ein Formular ziehe, dann habe ich in dem Objektinspektor unter Ereignisse einige Procedure, die bei einem Event ausgeführt werden, z.B. onClick.

Ich habe jetzt in einer Unit ohne Formular ein Objekt created und möchte gerne eine der Eventproceduren verwenden. Es handelt sich nicht um einen Button, sondern um eine TAdvGirdExcel Komponente.

Aber vielleicht bleiben wir der Einfachheit halber bei einem Button. Wenn ich den jetzt virtuel erzeuge, wie kann ich ihm die Eventprocedure onClick zuweisen?

Vielen Dank
Patrick

[himitsu]

Zitat:

virtuell

Du erstellst die Komponente schon "real".

Das was du meinst nennt sich "dynamisch erstellen", also quasi manuell.


Es gibt das Property DeineKomponente.OnClick und dem weist du deine Methode zu (x.OnEvent := EventMethode; ).

[Sir Rufo]

Delphi-Quellcode:

MyNewButton := TButton.Create( ... );
MyNewButton.OnClick := MyVeryFineButtonClickMethod;

[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

[Ykcim]

WOW!!! Vielen Dank für die schnellen und guten Antworten. So wird es klappen, habe noch ein paar Probleme mit den Parametern([DCC Fehler] TExcelExportUnit.pas(233): E2010 Inkompatible Typen: 'tmsUFlxFormats.TFlxFormat' und '_UFlxFormats.TFlxFormat.TFlxFormat'), die ich aber hoffentlich alleine gelöst bekomme.

Vielen Dank
Patrick

[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