Shape OnClick Event?

[dominikkv]

Delphi-Quellcode:

type
  TFormX = class(TForm)
  private
    procedure MeineOnClickProcedure(Sender: TObject);
  end;

//

procedure TFormX.MeineOnClickProcedure(Sender: TObject);
begin
  showmessage('Ich wurde von ' + (Sender as TShape).name + ' aufgerufen!');
end;

// die Prozedur dem Event zuweisen:
Kugeln[0].OnClick := MeineOnClickProcedure;

// wenn du sie wieder entfernen willst
Kugeln[0].OnClick := nil;