【结帖】[请求]函数问题**

qinjun_86

Borland.Delphi.Windows.GetWindowText、
Borland.Delphi.Windows.GetClassName
我用上面两个函数在平台中怎么得不到caption和ClassName呢？

zfang

楼主，请问一下，你的原始需求是什么呢？能描述一下么？我们好看下有什么好的方法来解决。
（平台对指针操作不支持。）

qinjun_86

还是那个问题，就是想截获Form里面的鼠标消息，在Delphi的很多方法移植到平台里面都不行啊

zfang

嗯，这个问题好像不太好实现。
首先，平台不支持指针操作。
其次，平台里的很多东西都跟delphi是不一样的了，所以即使你delphi里实现了该钩子并引入到平台中，你未必就能钩到你要的东西。

qinjun_86

用这种方式怎么也不行啊？

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure AppMsg(var Msg: TMsg; var Handled: Boolean);
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.AppMsg(var Msg: TMsg; var Handled: Boolean);
begin
  if (Msg.message = WM_LBUTTONUP)then
  showmessage('fa');
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  Application.OnMessage := AppMsg;
end;

end.

zfang

楼主，看4楼。

zfang

还有问题么，楼主？

zfang

由于长期未反馈，结帖。