onklick-ereignis von einem mit create erstelltes shape

[KoRn117]

ich bins mal wieder :)


ich habe ein shape erstellt (zur laufzeit)

nun möchte ich wie bei einem "normal" erstellten shapes die ganzen ereignisse nutzen können wie geht das?

ShapeX := TShape.Create(form1); <- so erstellt

und ich möchte das haben:

Delphi-Quellcode:

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
BLAblaBLA
end;

wisst ihr was ich meine?

vielen dank im vorraus :drunken:

[SirThornberry]

die proceduren die aufgerufen werden sollen müssen schon existieren und dann

Delphi-Quellcode:

procedure irgendwas.formcreate(Sender: TObject);
begin
 componente.onClick = procedure1;
end;

procedure irgendwas.procedure1(Sender: TObject);
begin
 //what to do
end;

für dein Beispiel

Delphi-Quellcode:

 shapex.onmousedown := shape1mousedown;