<select> <option onclick="test('www.hao123.com')"value="www.hao123.com">hao123</option> <option on click="test('www.baidu.com')" value="www.baidu.com">baidu</option> <option on click
这是一个再普通不过的Button1Click执行体: procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('I am Button1'); end; 点击Button1以后,具体过程是:Form收到Button1发来的WM_COMMAND,然后发一个CN_COMMAND给Button1,这个过程就不描述了.这里研究的是VCL在接下去是如何执行的: procedure TButton.CNCommand(var Mes