TShape markieren

[DGL-luke]

vooooorsicht! Da schleicht sich ein Verständnisproblem ein.

Das "OnClick"-Ereignis ist nur ein Event. Das heisst, es ist nur ein Zeiger auf eine funktion (Funktionszeiger *g*).

shapearray[0].OnCLick := TNotifyEvent(01256); wäre also durchaus eine zulässige Zuweisung. Alllerdings zeigt der Zeiger dann irgendwo in den reservierten Speicher. Es wird also beim aufruf nix gescheites rauskommen...

Wenn also jetzt ein Control merkt, "oh, da klickt mich wer", dann schaut es nach, ob ein Ereignis zugewiesen wurde. Wenn ja, wird die verknüpfte Prozedur aufgerufen.

Deshalb:

Delphi-Quellcode:

for i := 0 to high(shapearray) do
  shapearray[i].OnClick := ShapeClick;

(Übrigens wird das nicht funktionieren, wenn du die ShapeCLick-prozedur aus meinem vorherigen post nimmst. ShapeClick muss eine Methode sein, also in einer Klasse definiert, also etwa TForm1.ShapeClick)

EDIT: @3_of_8: