Guten Morgen,
Nach klick auf einen Button erzeuge ich 24 Bilder
diesen Bilder möchte ich per OnClickeieigniss eine eigengeschriebene Funktion übergeben mit einem Parameter
Delphi-Quellcode:
while zaehlen <= 24 do
begin
Bild[zaehlen] := TImage.Create(Memoryfeld);
Bild[zaehlen].Parent := Memoryfeld;
Bild[zaehlen].Picture.loadfromfile('back.jpg');
Bild[zaehlen].Top := top;
Bild[zaehlen].left := left;
Bild[zaehlen].Visible := true;
Bild[zaehlen].Cursor := crHandPoint;
// -->> Bild[zaehlen].OnClick := aufdeckenOnClick(zaehlen);
left := left + 120;
if anzahl = 6
then begin
top := top + 100;
left := 50;
anzahl := 0;
end;
anzahl := anzahl + 1;
zaehlen := zaehlen + 1;
end;
Frage
was ist daran falsch?
als fehlermeldung erhalte ich das hier
[Fehler] Spielfeld.pas(69): Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'
die Funktion ist vorhanden und deklariert...
Tigermoon