Methoden während der Laufzeit erstellter Objekte

**Flippo**

Hallo,
schonmal danke fürs reinschauen ich habe folgendes Problem:

Ich habe eine beliebige Anzahl von während der Laufzeit erstellten Shapes, wenn ich auf eines dieser Shapes klicke soll es sich verfärben. Und es soll ein Wert gespeichert werden, dass dieses Shape verfärbt ist.

Folgende 2 Ideen zur Lösung hatte ich bereits konnte sie nur nicht umsetzen:

1.Alle Shapes gehören der Klasse TMyShape an, können also von ihr Methoden erben, also habe ich mir gedacht, vieleicht kann man ja beim erzeugen die Ereignisse festlegen? Wenn das gehen würde, wie kann ich dann ein OnMouseDown Event für jedes einzelne Objekt beim erstellen mit erstellen?
So werden die Shapes erstellt:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure Bauen;

var i,x:integer;

begin

Spalten:= form1.Spinedit2.value;

Reihen:= form1.Spinedit1.value;

  for x:= 1 to Reihen do begin

     for i:=1 to Spalten do begin

     MyShape[i] := TMyShape.Create(Form1);

       with MyShape[i] do begin

       Parent := Form1;

       Height := 15;

       Width := 15;

       Shape:=strectangle;

       Left := 120+22*i;

       Top := x*22;

       end;

     end;

  end;

end;

2.Ein Onklick Event des Formulars bei dem Abgefragt wird welche position die Maus hat und dann mit der Position jedes Einzelnen Shapes verglichen wird. Hier ist es nur daran gescheitert, dass ich nicht weiss wie ich die Maus-Position bei Onklick ermittle.

Für alle Antworten schonmal Dankeschön im voraus.

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

Methoden während der Laufzeit erstellter Objekte

Methoden während der Laufzeit erstellter Objekte

Forumregeln