用什么方法可以知道某个控件当前处于哪个form里面？

Question

因为我的一些控件是动态创建进去的，而且想根据动态创建的控件，在该窗体里面的onkeypress里面添加特殊的事件，实现对该动态创建的控件进行快捷键控制！

Answer 1

var
 tc:Tcontrol
begin
 tc.parent:=button1;
 while tc.parent<>nil do
 begin
  tc:=button1.parent;
 end;
showmessage(tc.name);
手上没delphi，没调试。
大致意思是：找vbutton1的窗口。
当其parent不是空时，一直往上，知道那个是空了，它就是窗体。

Answer 2

var
 tc:Tcontrol
begin
 tc.parent:=button1;
 while tc.parent<>nil do
 begin
  tc:=tc.parent;//应该是这样的吧，不然好像是死循环哦^_^
 end;
showmessage(tc.name);