OnContextPopup Event funktioniert nicht

[thomas2009]

Hallo

konnte jemand mir sagen, warum bei mir die Event OnContextPopup in mein Code nicht funktioniert ?
OnClick funktioniert aber !

Delphi-Quellcode:

with TImage.Create(self) do begin
    OnClick := ShowMessage('Hallo');
    OnContextPopup := ShowMessage('blabla');
...

[SimStar001]

Ist das Event onContextPopup nicht nur für Popupmenüs und nicht für messagedlgs?

[Uwe Raabe]

Zitat von thomas2009:

Hallo

konnte jemand mir sagen, warum bei mir die Event OnContextPopup in mein Code nicht funktioniert ?
OnClick funktioniert aber !

Delphi-Quellcode:

with TImage.Create(self) do begin
    OnClick := ShowMessage('Hallo');
    OnContextPopup := ShowMessage('blabla');
...

Ich bezweifle mal, daß diese beiden Zuweisungen funktionieren! Und folgerichtig sagt der Compiler auch:

[DCC Fehler] Unit25.pas(29): E2010 Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'
[DCC Fehler] Unit25.pas(30): E2010 Inkompatible Typen: 'TContextPopupEvent' und 'procedure, untyped pointer or untyped parameter'

OnClick ist ein TNotifyEvent und so muss dieser Eigenschaft eine Objektmethode mit der passenden Signatur zugewiesen werden. Gleiches gilt sinngemäß auch für OnContextPopup.