private<br> { Private declarations }<br> procedure WMNCCreate(var Msg:TWMNCCreate);message WM_NCCREATE;<br><br>......<br><br>procedure TForm1.WMNCCreate(var Msg: TWMNCCreate);<br>begin<br> ShowMessage('New Form Create');//处理你的事情<br>end;<br><br>