Ich habe es sehr unelegant lösen können, aber das muss es doch etwas besseres geben?
Delphi-Quellcode:
procedure TFormKunden.JvTimer1Timer(Sender: TObject);
begin
if FindDragTarget(Mouse.CursorPos, True)= JvItemsPanel1 then
Begin
if not Image then
Begin
JvItemspanel1.Visible := false;
JvImage4.Visible := true;
JvItemspanel1.Visible := true;
Image := true;
End;
End
else
Begin
if Image then
Begin
JvItemspanel1.Visible := false;
JvImage4.Visible := false;
JvItemspanel1.Visible := true;
Image := false;
End;
End;
end;
Das viele Visible kommt daher, dass ansonsten das Image hinter dem Panel liegt, da das Image später sichtbar gemacht wird als der Panel.