eigenes Drag Drop ereignis in eigener Komponente. WIE???

[IIIMADDINIII]

hallöchen,

ich schreibe grad eine eigene komponente mit der mutter 'TCustomControl'. in dieserhabe ich ein TImages aray hineingesetzt. jetzt wollte ich das ich auf ein Image klicke und es entweder die position in meiner komponente ändern kann oder die TImage an ein andere komponente übergebe. das heißt dass die index position und das TImage Übergeben muss.
ich habe noch nie eigene events erstellt (nur so als hinweiß)

weiß jemand wie soetwas get?

wenn ja dan antworte bitte

[fajac]

Wenn du von TCustomControl ableitest, brauchst du Drag&Drop nicht selbst implementieren, da das schon im Vorfahr TControl erledigt ist. Wenn du die Ereignisse nach außen durchreichen willst, reicht folgender Code im Deklarationsteil deiner Komponente.

Delphi-Quellcode:

published
  property OnDragDrop;
  property OnDragOver;

Wenn du die Ereignisse intern abfangen willst, kannst du ensprechende Handler-Methoden schreiben und sie im Konstruktor deiner Komponente zuweisen, also :

Delphi-Quellcode:

private
  procedure MyCustomDragDrop (Sender, Source: TObject; X, Y: Integer);
public 
  constructor Create (AOwner : TComponent); override;
...

implementation

  constructor TMyComponent.Create (AOwner : TComponent);
  begin
    inherited Create (AOwner);
    Self.OnDragDrop := MyCustomDragDrop;
  end;

und mit OnDragOver genauso verfahren.