从TListViewItem PlaceOffset创建新动画不起作用

我在为TListView中的PlaceOffset中的项目设置动画时遇到问题。我该怎么办?

我想更改X中某项的YTListView位置,

position.X = -56position.X = 144

position.Y = 16position.Y = 96

从TListViewItem PlaceOffset创建新动画不起作用

我可以在没有动画的情况下做到这一点:

procedure TForm1.Button1Click(Sender: TObject);
var
  item : TListViewItem;
begin
  ListView1.Items.Clear;
  item := ListView1.Items.Add;
  item.Data['Text1'] := 'Animate Me in postion  x =136 y =256 ';
  //  PlaceOffset.X := 8;
  //  PlaceOffset.Y := 8;
  item.Objects.FindObjectT<TListItemText>('Text1').PlaceOffset.X := 136;
  item.Objects.FindObjectT<TListItemText>('Text1').PlaceOffset.Y := 256;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  item : TListViewItem;
begin
  ListView1.Items.Clear;
  item := ListView1.Items.Add;
  item.Data['Text1'] := 'Animate Me in postion  x =8 y =8';
  item.Objects.FindObjectT<TListItemText>('Text1').PlaceOffset.X := 8;
  item.Objects.FindObjectT<TListItemText>('Text1').PlaceOffset.Y := 8;
end;

但是我该如何使用TFloatAnimation呢?

从TListViewItem PlaceOffset创建新动画不起作用

chixx 回答:从TListViewItem PlaceOffset创建新动画不起作用

暂时没有好的解决方案,如果你有好的解决方案,请发邮件至:iooj@foxmail.com
本文链接:https://www.f2er.com/3014126.html

大家都在问