线程中删除图片的问题！

[yinweixian]

我在线程中写删除主界面上的一个图标。代码如下：
procedure GMyThread.Execute;
var
i:integer;
begin
for i:=pan[0].ControlCount-1 downto 0 do
if (pan[0].Controls[i].Left=123) and (pan[0].Controls[i].Top=118) then
(pan[0].Controls[i] as TImage).Free;
end;

pan是主界面上定义的一个全局的panel数组，想要删除pan[0]中位置是（123，118）的图标。

主界面是MainForm，我早MainForm.FormShow中调用线程就能正常删除图标；但是当我点击按钮button去调用线程删除图标时就出错了，出错的提示是Access violation at address 77F8F281 in module 'ntdll.dll'.Write of address 00000010.

到底是什么问题啊？为什么在FormShow中就不会出错呢？

[dahai9825]

free完一个之后ControlCount会自动减一的 加上一个break看看 另外你在线程里面操作GUI你最好要考虑同步的问题

procedure GMyThread.Execute;
var
i:integer;
begin
for i:=pan[0].ControlCount-1 downto 0 do
if (pan[0].Controls[i].Left=123) and (pan[0].Controls[i].Top=118) then
begin
(pan[0].Controls[i] as TImage).Free;
break;
end;
end;

[火龙岛主]

处理主线程内容的时候需要使用同步功能！
如：

procedure TMyThread.PushTheButton;

begin
  Button1.Click();
end;

procedure TMyThread.Execute;
begin
...
  Synchronize(PushTheButton);
  ...
end;

[风之谷]

同步后就相当于没使用线程，有什么意思啊。~

[阿发伯]

修改一下，应该可以的(随手修改，没作测试，供参考)：

procedure GMyThread.FreeImage; //增加一个方法
var
i:integer;
begin
for i:=pan[0].ControlCount-1 downto 0 do
if (pan[0].Controls[i].Left=123) and (pan[0].Controls[i].Top=118) then
begin
(pan[0].Controls[i] as TImage).Parent := nil;
(pan[0].Controls[i] as TImage).Owner.RemoveComponent(Self);
(pan[0].Controls[i] as TImage).Free;
end;
end;

procedure GMyThread.Execute;
begin
Synchronize(FreeImage);
end;

[modaoshi3002]

这个TImage，如果是一开始就放在主界面上的话，它有个属主属性，是指向主界面的，在主界面注销时，会自动注销这个TImage，所以这个是不应该自己手动去free，否则会导致二次free。
你要不还是把这图片隐藏掉算了。