请高手们进来看看~~

能否提供一小段代码：  
  关于消息的：  
  包括getmessage()  
  sendmessage()谢谢了。 问题点数：100、回复次数：4Top

1 楼beyondtkl（大龙驹<*好久没来了,兄弟们好吧。*>）回复于 2004-11-04 18:49:15 得分 40

SendMessage(Edit1.Handle,   WM_KEYDOWN,   VK_RETURN,   0);   //   相当于在Edit1上按回车  
   
  var  
      msg:   TMsg;  
  begin  
      while   GetMessage(msg,   0,   0,   0)   do   //   从消息队列中获取消息   形成自己的消息队列。。  
      begin  
          TranslateMessage(msg);   //   翻译消息的一些内容  
          DispatchMessage(msg);     //   分发消息。。  
      end;  
  end;Top

2 楼jb99334（↑飞刀客↑）回复于 2004-11-04 18:50:52 得分 20

创建窗体   窗口处理过程   消息循环....  
  http://neweb.dhcn.net/article/delphi/1683.shtml  
  不知道你干什么？Top

3 楼drift1981（delphi coder）回复于 2004-11-04 18:51:21 得分 20

发送关闭消息  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      sendmessage(handle,wm_close,0,0);  
  end;  
  Top

4 楼Nirvanaxumm（当声音 触觉 视野水彩般化开，我才能感受…………）回复于 2004-11-06 11:57:39 得分 20

upTop

相关问题

• 消息
• 队列
• sendmessage
• msg
• getmessage
• edit
• wm
• begin
• handle

• 帖主：slashxumm
• beyondtkl
• jb99334
• drift1981
• Nirvanaxumm

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载