快速上手Delphi三十六计之输入处理篇


本文整理自网络,侵删。

 快速上手Delphi三十六计之输入处理篇
Delphi是Borland公司开发的可视化开发系统,它基于Windows 95/98/NT,采用高度结构化的Object Pascal语言,具有结构清晰、高效优化的特点。尤其,最新版Delphi5.0更以其良好的可视化应用程序开发环境以及其强大的可扩展数据库功能而倍受广大编程爱好者和专业程序员青睐。在编程界流行的“真正的程序员用VC, 聪明的程序员用Delphi”之说,足见其为大家认可的程度。现将收集的Delphi常用技巧收录如下,以享广大Delphi爱好者:

输入处理篇

1. 获取键盘滚动锁, 插入态, 大写锁, 数字锁的开关状态


//Virtual =Vk_Scroll或Vk_capital或Vk_NUMLock或Vk_Insert

function FuncKeyOn(VirtualKey: Word): Boolean;

begin

  Result := Bool(GetKeyState(VirtualKey) and 1);

end;
2. 当用户按下Enter/Up/Down键时使焦点切换到下一个聚焦对象


//设置窗体的KeyPriview属性为True, 并写入如下代码:


procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

begin

 if Key = #13 then

 begin

  SendMessage(Handle, WM_NEXTDLGCTL, 0, 0);

  Key := #0;

 end;

end;

procedure

TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

Begin

  If Key=Vk_Up then SendMessage(Handle, Wm_NextDlgCtl, 1, 0);

  If Key=Vk_Down then SendMessage(Handle, Wm_NextDlgCtl, 0, 0);

end;
3. 取得鼠标的绝对位置和设置鼠标的绝对位置


function GetMousePos: Tpoint;

Begin

 GetCursorPos(ThePoint);

End;

Procedure SetMousePos(X, Y: Word);;

 var

  Tp: Tpoint;

begin

  Tp := ClientToScreen(Point(x, y));

  SetCursorPos(tp.x, tp.y);
end;

相关阅读 >>

检测系统信息的单元 computerinfo.pas

Delphi app如何禁掉安卓锁屏

Delphi android调用授权管理打开通知监听服务

Delphi 的 webservice 的 cookie 操作

Delphi如何获取一个字符串再另一个字符串中最后一次出现的位置

Delphi gettempdirectory 获取临时文件夹路径

Delphi设置光标在edit右边

Delphi webbrowser 实用代码收集

Delphi 加载excel 导入数据库

Delphi 获得memo、richedit的光标位置

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...