OnClick (Anfängerfrage)

Gast Erhaltene Danke: 1

Hi
Ich hab ein TImage mit

Quelltext

1:
2:

  pic:=timage.Create(form1);
  pic.Parent:=form1;

erzeugt und möchte dem TImage eine OnClick-Procedure zusweisen. Wie geht das?

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Erstmal natürlich die Procedure bereitstellen:

Quelltext

1:
2:
3:
4:

procedure TForm123.MyImageClick(Sender: TObject);
begin
// Mach was
end;

Und dann zuweisen:

Quelltext

1:	MyImage.OnClick := MyImageClick;

Gast Erhaltene Danke: 1

Dann kommt immer der Error

Zitat:

[Fehler] unit1.pas(46): Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'

bis11 · Beiträge: 1247 Erhaltene Danke: 2 Apple Mac OSX 10.11

Nach dem Beispiel von Alibi musst Du noch eine Zeile entweder unter public einsetzen und zwar so :

Quelltext

1:
2:
3:
4:
5:
6:

    ....
   private
      { Private - Deklarationen }
   public
      { Public - Deklarationen }
      procedure MyImageClick(Sender: TObject);

Damit die Unit auch weiß, das es diese Procedure auch gibt.