Witam wszystkich, dawno mnie tutaj nie było ;)
Chciałem zapytać o o to jak zrobić Drag&Drop TImage pomiędzy dwoma TPanel.
Jeśli ktoś może mnie pokierować jak w ogóle zrobić taki D&D, bo probowalem w zdarzeniu OnDragDrop drugiego panelu użyc takiego kodu:
if Sender is TImage then
begin
Image:=TImage.Create(Panel2);
Image.Left:=X;
Image.Top:=Y;
Image.Picture:=TImage(Sender).Picture;
Image.AutoSize:=true;
end;
Ale to chyba nie za dobrze napisałem, bo nie działa. Druga sprawa to chciałbym jeszcze zrobić to tak, żeby podczas przeciągania obrazek przeciągany stał w miejscu a przy kursorze pojawiał się jakiś dodatkowy (to jeszcze umiem zrobić) który będzie ponad panelami (tego już nie :) ).
Mam nadzieję, że wiecie o co chodzi.
Z góry dzięki za odpowiedź ;)