如何在Android平台上的运行时创建和发布TImage控件?

时间:2015-01-06 11:10:52

标签: android delphi delphi-xe7

procedure TForm1.FormCreate(Sender: TObject);
begin
  imageIndex := 0;
end;

在Delphi XE7中,我在运行时以这种方式创建TImage控件(从按钮单击事件调用):

newImage := TImage.Create(Self);
Inc(imageIndex);
newImage.Tag := imageIndex;
newImage.Name := 'Image' + IntToStr(imageIndex);
newImage.Padding.Right := 20;
newImage.Parent := HorzScrollBox2;
newImage.Visible := True;
newImage.Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, 'test.jpg'));
newImage.Align := TAlignLayout.Left;
newImage.Width := 200;
newImage.OnGesture := OwnImageGesture;
newImage.touch.InteractiveGestures := [TInteractiveGesture.LongTap];
newImage.PopupMenu := pmIgame;

这是我释放TImage对象(从按钮点击事件调用)的方式:

FindComponent('Image1').Free;

当我在Windows下运行并创建一个对象并释放它时,它运行良好。但是当我在Android设备或模拟器下运行时,TImage对象未被释放。我不知道为什么。

0 个答案:

没有答案