直接上代码,惭愧了
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;