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
对象未被释放。我不知道为什么。