Delphi fmx 获取控件句柄
Fmx 框架控件如果 从 TPresentedControl 类继承下来的，会有一个属性，ControlType，它是一个枚举。

打开 FMX.Controls 单元定义：TControlType = (Styled, Platform);   

控件的ControlType属性默认为 Styled，如果使用 Platform ，则使用当前平台原生创建。

在 Win 平台原生创建是有句柄的。我通过遍历里面的对象，获取到它的 TWinNativeScene 类，取出句柄。

原码如下：

uses

  FMX.Controls.Presentation, FMX.Presentation.Win.Style, FMX.Controls 


function FmxObjectToWnd(FmxControl: TPresentedControl):NativeUInt;
var
  Idx: Integer;
begin
  Result:= 0;
  if FmxControl.ControlType = TControlType.Platform then
  for Idx := 0 to FmxControl.ChildrenCount - 1 do begin
    if FmxControl.Children[Idx] is TWinNativeScene then begin
      Exit(TWinNativeScene(FmxControl.Children[Idx]).Handle.Wnd);
    end;
  end;
end;

 

调用方法：

  把控件属性 ControlType 设置为 Platform ，直接调用

      Showmessage(  IntToStr( FmxObjectToWnd(Panel1) )  ) ;

 

来源：http://delphifmx.com/node/80