起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 145|回复: 7

【结帖】[问题]**

[复制链接]
发表于 2008-4-22 10:10:10 | 显示全部楼层 |阅读模式
Borland.Delphi.Windows.PMsg(Msg)
在Delphi编译能通过,而在平台不行,请问该如何处理
回复

使用道具 举报

 楼主| 发表于 2008-4-22 10:29:36 | 显示全部楼层

Re: [问题]

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;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-22 10:32:03 | 显示全部楼层

Re: Re: [问题]

有没人帮我看一下啊
回复 支持 反对

使用道具 举报

发表于 2008-4-22 10:35:32 | 显示全部楼层
平台不支持指针操作
可以考虑 用delphi做成第三方控件导入到平台
倒入第三方控件可以看
http://bbs.justep.com/forum.php?mod=viewthread&tid=20086
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-22 10:40:33 | 显示全部楼层
谢谢
还有没有更好的办法呢
回复 支持 反对

使用道具 举报

发表于 2008-4-22 10:46:27 | 显示全部楼层
没有好方法了!只能通过导入第三方控件的方式。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-22 10:52:32 | 显示全部楼层
好的
谢谢你了 zfang
我试着弄一下
回复 支持 反对

使用道具 举报

发表于 2008-4-22 11:10:18 | 显示全部楼层
嗯,客气,这个 就结帖了!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-10 23:13 , Processed in 0.039466 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表