delphi - TComponent实例的句柄

Question

我有一个TComponent类的实例，需要通过WinAPI调用与各自的控件进行交互。

为此，我需要一个由TComponent实例表示的控件的句柄。

如何从TComponent获取该句柄？

Answer 1

尝试将TComponent实例强制转换为TWinControl。

未经测试，如果它返回有效的句柄，但它返回合理的数字。

 procedure TForm1.Button1Click(Sender: TObject);
   var
     i: integer;
     mycontrol: TWinControl;
   begin
     Memo1.Lines.Clear;
     for i := 0 to ComponentCount - 1 do
       if Components[i] is TWinControl then
          begin
            mycontrol := TWinControl(Components[i]);
            Memo1.Lines.Add(IntToStr(mycontrol.Handle));
          end;
   end;