Drag and Drop

0

Witam. Mam mały problem bo nie wiem jak zrobić zdarzenie drag i drop. Byłbym wdzięczny jak by ktoś napisał mi taki przykładzi z wykorzystaniem panelu.

0

Nie umiem tego za bardzo ale wydaje mi sie, że jak masz np. na formie Panel to dla formy i dla panelu ustawiasz DragMode, na dmAutomatic, a potem pisze obsługę dla formy dla zdarzeń OnDragOver, OnDragDrop. W DragOver zmienna Accept oznacza czy "przeciąganie jest akceptowane" np.: Accept := (Source is TPanel), a w procedurze OnDragDrop dajesz
If (Source is TPanel) then
Begin
(Source as TPanel).Top := Y;
(Source as TPanel).Left := X;
End;
może to nie najlepszy przykład ale może CI pomoże. Ja się uczyłem tego z Helpa jak potrzebowałem , więc TObie równierz polecam : )

0

No ten temat kiedyś był fajny artykuł z gotowym kodem... [cya]

0

uzywanie dmAutomatic jest wielce nie bezpieczne i nie dopracowane, goście z borlanda sie nie wykazali, najlepiej samemu przechwytywać kiedy chcemy aby dany komponent wszedł wstan D&D

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0