⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 12.htm

📁 对于学习很有帮助
💻 HTM
字号:
<html><!-- #BeginTemplate "/Templates/text.dwt" --><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css"><!--.title11 {  font-family: "黑体"; font-size: 11pt; color: #339900; font-weight: bold}.text11 {  font-family: "宋体"; font-size: 11pt; color: #009933; font-weight: normal}--></style></head><body bgcolor="#FFFFFF" background="../q1.jpg"><span class="text11"></span> <table width="91%" border="0" height="371" class="title11">  <tr class="title11" align="center">     <td height="26" class="title11"><!-- #BeginEditable "title" -->模拟按下某键 <!-- #EndEditable --></td>  </tr>  <tr class="text11" align="left" valign="top">     <td class="text11"><!-- #BeginEditable "text" -->让 WIN95 模拟按了一个按键,就向某窗体发送按键一样,例如按下       ENTER 或者 TAB 键,或者按 7 键<br>      PostMessage(Object.Handle, WM_KEYDOWN, VK_TAB, 0);<br>      {Object表示窗体名,WM_KEYDOWN是按下,VK_TAB是发送的按键}<br>      PostMessage(edit1.Handle, WM_KEYDOWN, 55, 0);<br>      {向edit1发送一个7字} <!-- #EndEditable --></td>  </tr></table><table width="91%" border="0">  <tr class="title11" align="right">     <td><a href="delphi.html"><font color="#66FF00">回到标题列表</font></a></td>  </tr></table></body><!-- #EndTemplate --></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -