tMessage(Msg,0,0,0) do
  begin
    TranslateMessage(Msg);                   //转换某些键盘消息.
    DispatchMessage(Msg);                    //将消息发送给窗口过程.
  end;
end.

>其实Windows 编程是每个学写程序的人都要掌握的,学Delphi时也最好能先学习Windos编
程(最少要知道).以上代码虽说不如在Delphi中直接来个New->Form来的快,但它能告诉你本
质的东西.能让你更好的了解消息循环以及其他.而这些正是让New出来的窗体给掩盖的部分
.
>注:以上代码是我从Windows 程序设计上通过C++语法直译过来的(),测试后没有问题.若我
的注解有什么错误的地方,请各位指正!^_^
  
hottey 于2004-5-19
作者网站:http://asp.itdrp.com/hottey  (附例程)