找到解决方法了。。。

直接上代码,惭愧了

 

  public

    { Public declarations }

    procedure LBWndProc(var message:TMessage);

  end;

 

var

  Form5: TForm5;

  OldWndProc:TWndMethod;

implementation

 

{$R *.dfm}

 

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

  OldWndProc:=lb1.WindowProc;

  lb1.WindowProc:=LBWndProc;

end;

 

procedure TForm5.LBWndProc(var message: TMessage);

begin

  with message do

  begin

    if msg=WM_LBUTTONDOWN then

    begin

      beep();

    end

  else

    OldWndProc(message);

  end;

end;

阅读更多
上一篇继续消息窗口
下一篇会议讨论结果
想对作者说点什么? 我来说一句

QC错误解决方法

2015年08月31日 231KB 下载

jsp中文处理问题

2008年06月02日 289KB 下载

没有更多推荐了,返回首页

关闭
关闭