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;