Prozedur als Ereignis

[idefix2]

Hallo,
ich habe mehrere Prozeduren (keine Klassenmethoden), die ich gerne dynamisch zur Laufzeit einem Onklick-Ereignis eines TImage zuordnen würde.
Geht das irgendwie, oder ist das nur mit einer Methode möglich?
Natürlich ginge es mit Hilfe einer Prozedurvariablen, die dann in einer fixen Onclick-Methode aufgerufen wird, aber da müsste ich die dann auch noch als Parameter übergeben, das würde ich mir lieber sparen.

[Sir Rufo]

Wie ist das Ereignis denn deklariert?

Davon hängt es ab, ob Methode oder Prozedur ...

[Namenloser]

Geht meiner Meinung nach nur mit einem Wrapper-Objekt und einer Prozedurvariablen.

Bei „of object“ wird ja der Self-Pointer im eax-Register übergeben, da müsste man schon einiges umbiegen.

[jaenicke]

OnClick eines TImage ist ein TNotifyEvent, also ein Methodenzeiger, da kann ohne Tricks keine Prozedur rein.

Du kannst allerdings eine Methode (TMethod) erstellen und dabei den Zeiger auf das Objekt der Methode auf nil setzen. Dann kannst du diesen erzeugten Methodenzeiger dem OnClick zuweisen.

[Namenloser]

Zitat von jaenicke:

Du kannst allerdings eine Methode (TMethod) erstellen und dabei den Zeiger auf das Objekt der Methode auf nil setzen. Dann kannst du diesen erzeugten Methodenzeiger dem OnClick zuweisen.

Wie ich bereits schrieb, geht das nicht so einfach, da Self im eax-Register übergeben wird. Kann zufällig klappen, kann aber auch böse daneben gehen, vor allem, wenn auf den Parameter „Sender“ zugegriffen wird – der wird nämlich immer nil sein. Wenn dann müsste man einen Dummy-Parameter einfügen:

procedure Callback(_Self: TObject; Sender: TObject); Aber das ist echt dirty.

Warum verfrachtest du nicht einfach deine Prozeduren in eine Klasse?

[jaenicke]

Zitat von NamenLozer:

Wie ich bereits schrieb, geht das nicht so einfach, da Self im eax-Register übergeben wird. Kann zufällig klappen, kann aber auch böse daneben gehen, vor allem, wenn auf den Parameter „Sender“ zugegriffen wird – der wird nämlich immer nil sein.

Klar ist der nil, aber böse ist an dem Vorgehen gar nichts. Ein normaler Methodenzeiger ist auch nichts anderes und genau TMethod ist genau das was die Übergabe von Self im korrekten Register bewirkt.

Sinnvoller wäre aber in der Tat objektorientiert zu arbeiten.

[idefix2]

Zitat von jaenicke:

OnClick eines TImage ist ein TNotifyEvent, also ein Methodenzeiger, da kann ohne Tricks keine Prozedur rein.

Du kannst allerdings eine Methode (TMethod) erstellen und dabei den Zeiger auf das Objekt der Methode auf nil setzen. Dann kannst du diesen erzeugten Methodenzeiger dem OnClick zuweisen.

Danke, das ist die Lösung

@NamenLozer
Hier interessiert mich "sender" nicht, und kommt auch nirgends vor.