Hallo, ich habe eine Frage zum erstellen von Ereignissen in vererbten oder neuen Klassen.
Als Beispiel:
Ich erstelle mit folgendem Code 300 Objekte des Typs XShape, das nur ein Kind des Typs TShape ist, aber um eine beliebige Prozedur erweitert wurde:
Delphi-Quellcode:
type
XShape= class(TShape)
prozedur Beliebig(i:integer);
end;
...
Delphi-Quellcode:
procedure Starten;
var x:integer;
Shapes:Array[1..300] of XShape;
Begin
for x:= 1 to 300 do
Begin
Xshape:=TShape.Create(Form1);
Xshape.Parent:=Form1;
end;
end;
Wie kann ich jetzt ein Event definieren, das Ein Ereignis durch Interaktion mit einem der (ja während der Laufzeit erstellten) XShapes auslöst, wie zum Beispiel XShape[25]Click ?? Also quasi ein Allgemein vordfiniertes Event OnXShapeClick, das mit der Erstellung des XShapes gleich mit erstellt wird?
Ich brauche nämlich auf diese Weise 300 Onclick, Onmousemove, On... und und und..
Ich erstelle die dinger ja schliesslich zur Laufzeit um nicht alle 300 Manuell machen zu müssen
Wisst ihr rat?
Vielen dank schonmal!
