type
TDragOverEvent = procedure(Sender, Source: TObject; X,Y:Integer;
State: TDragState; var Accept: Boolean) of object;
Sender, Source, X, Y параметрлері OnDragDrop оқиғасындағы сияқты мағына алады; State – тасу режимінің күйін анықтайды (dsDragEnter – тасылатын объект басқару элементіне түседі, ол арқылы оны жылжытуға болады; dsDragLeave – тасымалданатын элемент осы басқару элементін тастап кетеді; dsDragMove – тасылатын элемент басқару элементінің бойымен жылжиды); Accept – егер Sender объектісі тасымалданған элементті қабылдайтын болса, онда оқиғаның өңдеуіші True мәнін, ал кері жағдайда False мәнін беретін параметр.
property OnEndDrag: TEndDragEvent;
Ағымды басқару элементін тасу аяқталғанда өрбитін оқиға. Оқиғаның өңдеуіші TEndDragEvent типінен тұрады:
Достарыңызбен бөлісу: |