globale Prozedur - zur Laufzeit erzeugtes Form

[BenjaminHelbig]

Hallöle liebe DP'ler,

ich stehe momentan vor folgender Schwierigkeit. Ich erzeuge zur Laufzeit ein MDI Formular. Dieses enthält verschiedene globale Prozeduren, so z.B. myIMGclick;
Jetzt erzeuge ich zur Laufzeit ein TImage dessen Parent eben das zur Laufzeit erzeugte MDI Formular ist. Soweit kein Problem, aber wie weiße ich dem TImage die Methode myIMGclick als "OnClick" Ereignis zu?
Folgender Code läuft leider nicht:

Delphi-Quellcode:

var myImg : TImage;
begin
MyForm := TNewDBTable.Create(self);
MyImage := TImage.Create(MyForm);
MyImage.Parent := MyForm;
MyImage.OnClick := myIMGclick;
end;

was ja eigentlich auch logisch ist, da der Compiler ja die Prozedur "myIMGclick" nicht unter MyForm findet.

Grüße Ben

[SMO]

Zitat von BenjaminHelbig:

Dieses enthält verschiedene globale Prozeduren, so z.B. myIMGclick;
...
Soweit kein Problem, aber wie weiße ich dem TImage die Methode myIMGclick als "OnClick" Ereignis zu?

Eine globale Prozedur ist etwas anderes als eine Methode. Methoden sind Prozeduren/Funktionen die zu einer Klasse gehören. myIMGclick muss also so deklariert sein, damit die Zuweisung klappt:
procedure TIrgendeineKlasse.myIMGclick(Sender: TObject); Dann brauchst du noch eine Instanz dieser Klasse, denn "MyImage.OnClick := TIrgendeineKlasse.myIMGclick" ist ebenfalls unzulässig. Es muss schon "MyImage.OnClick := EinObjekt.myIMGclick" sein.

[jfheins]

Oder so wie hier:
http://www.delphipraxis.net/internal...=302598#302598

[BenjaminHelbig]

Hallöchen,

thx für Eure schnelle Antwort. @SMO, dass mit der Klasse ist klar, die Prozedur myIMGclick ist ja auch als Klasse gekapselt. Im MDI Formular (welches NewDBTable heißt) steht unter public:

TNewDBTable.myIMGclick(blabla); Ich bin blos nicht auf die Idee gekommen, anstatt
MyImage.OnClick := MyForm.myIMGclick; zu schreiben
MyImage.OnClick := TNewDBTable.myIMGclick; was aber auch nicht klappt, denn, was ja auch klar ist, OnClick ist ja ein NotifyEvent, während myIMGclick eine Prozedur ist. Also müsste ich den Tipp von jfheins nehmen. da steig ich aber noch nicht so ganz durch.

Trotzdem thx.