从剪贴板getComponent的问题

Question

你在k1 在getcomponent时还是存在的；你将button3改成这样看看procedure  TForm1.Button3Click(Sender:  TObject);
begin
   k1.Visible := false;//将当前有的屏蔽掉
   clipBoard.GetComponent(self,self);
end;
然后你看，就知道只有一个了；

Answer 1

我是通过这样解决的：
if Assigned(TheComponent) then exit
else
 Create_theComponent
end

Answer 2

thank qiubolecn(来自差生市) .
虽然你的解决方法不能符合我的需要，但你是第一个回答问题的。

Answer 3

呵呵，我只管找你的原因了你的if Assigned(TheComponent) then exit//这里估计永远都为 True
else
 Create_theComponent
end