关闭

找到解决方法了。。。

168人阅读 评论(0) 收藏 举报

直接上代码,惭愧了

 

  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;

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:9672次
    • 积分:284
    • 等级:
    • 排名:千里之外
    • 原创:21篇
    • 转载:1篇
    • 译文:0篇
    • 评论:0条
    文章存档