频道分类

Delphi fmx 获取控件句柄

作者:admin 来源: 日期:2020/7/17 14:21:48 人气: 标签:

 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


上一篇:Delphi 微信公众平台 Delphi SDK下一篇:没有资料