Question

delphi这话错在哪

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message=wm_rbuttondown) then if IsChild(Webbrowser1.Handle,Msg.hwnd)+IsChild(Webbrowser2.Handle,Msg.hwnd) then Handled:=true;
if (Msg.message = WM_KEYUP) AND (Msg.wParam=VK_ESCAPE) then begin if form1.Panel1.Visible=true then form1.Panel1.Visible:=false else form1.Panel1.Visible:=true; PlaySound ('Sound.wav',0,snd_async);
end;
end;

Answer 1

你写的超级乱啊，没法看懂要整理下
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message=wm_rbuttondown) then
if IsChild(Webbrowser1.Handle,Msg.hwnd)
+IsChild(Webbrowser2.Handle,Msg.hwnd) then
Handled:=true;
if (Msg.message = WM_KEYUP) AND (Msg.wParam=VK_ESCAPE) then
begin
if form1.Panel1.Visible=true then
form1.Panel1.Visible:=false
else
form1.Panel1.Visible:=true;
PlaySound ('Sound.wav',0,snd_async);
end;
end;
中间有个加号应该是错误的吧 应该改成and