我在为TListView
中的PlaceOffset
中的项目设置动画时遇到问题。我该怎么办?
我想更改X
中某项的Y
和TListView
位置,
position.X = -56
至position.X = 144
和
position.Y = 16
至position.Y = 96
我可以在没有动画的情况下做到这一点:
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
呢?