怎样得到其他句柄

Question

Button1.Handle;
Edit1.Handle;
Memo1.Handle;
……

Answer 1

GetCursorPos(Poss);
Hands := WindowFromPoint(Poss);
怎样得到这个控件form的句柄

Answer 2

form有个component[i] 列表的,component[i].handle就可以得到了

Answer 3

var h: Thandle;     
     for i:= 0 to ComponentCount-1 do
     begin
        if Components[i] <> nil then
          h := Components[i].Handle; 
     end; 

Answer 4

     for i:= 0 to ComponentCount-1 do
     begin
        if Components[i] <> nil then
          h := Components[i].Handle; 
     end;