Спасибо, с панелью разобрался.
Теперь возникла другая проблема. Нужно переместить рисунок, я сделал следующим образом:
...
private
DragPoint : TPoint;
...
procedure TForm1.RxGIFAnimator1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
DragPoint:=Point(X , Y );
end;
procedure TForm1.RxGIFAnimator1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
IF (ssLeft IN Shift) Then
Begin
TControl(Sender).Left:=TControl(Sender).Left + x - DragPoint.X;
TControl(Sender).Top :=TControl(Sender).Top + y - DragPoint.y;
End;
end;
...
но при перемещении он начинает "мелькать", как можно избавится от мельтешения?
|