【结帖】[问题]**

qinjun_86

Borland.Delphi.Windows.PMsg(Msg)
在Delphi编译能通过，而在平台不行，请问该如何处理

qinjun_86

function TMainForm.HookProce(Code:Integer;WparamongInt;MsgongInt)ongInt;
var
  vClassName : String; //组件类名
  Caption:String;
  StringList : TStringList;
begin
  StringList := TStringList.Create;
  StringList.Add('button2');
  StringList.Add('button3');
  StringList.Add('button4');
  try
    if MainForm.vDown then //按钮面板已出现
    begin
      if Code = HC_Action then
      begin
        if self.ScreenToClient(Borland.Delphi.Windows.PMsg(Msg).pt).Y < Panel1.Top + Panel1.Height then  //判断鼠标点击的区域
        begin
          if Msg.message = Borland.Delphi.Messages.WM_LBUTTONUP then
          begin
            GetClassName(Msg.hwnd,vClassName,255);
            if StrPas(vClassName)='TButton' then
            begin
              GetWindowText(Msg.hwnd,Caption,sizeof(caption)-1);
              if StringList.IndexOf(Caption) <0 then
              begin
                ControlPanel('');
              end;
            end;
          end
        end
        else begin
          if Msg.message = WM_LBUTTONDOWN then
          begin
            MainForm.vDown := false;
            timer1.Enabled := true;
          end;
        end;
      end;
    end;
    result := CallNextHookEx(HOOKHandle,Code,WParam,Msg);
  finally
    StringList.Free;
  end;
end;

qinjun_86

有没人帮我看一下啊

zfang

平台不支持指针操作
可以考虑 用delphi做成第三方控件导入到平台
倒入第三方控件可以看
http://bbs.justep.com/forum.php?mod=viewthread&tid=20086

qinjun_86

谢谢
还有没有更好的办法呢

zfang

没有好方法了！只能通过导入第三方控件的方式。

qinjun_86

好的
谢谢你了 zfang
我试着弄一下

zfang

嗯，客气，这个 就结帖了！