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); 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); 下载本文示例代码


Delphi之三十六计之输入处理篇Delphi之三十六计之输入处理篇Delphi之三十六计之输入处理篇Delphi之三十六计之输入处理篇Delphi之三十六计之输入处理篇Delphi之三十六计之输入处理篇Delphi之三十六计之输入处理篇Delphi之三十六计之输入处理篇Delphi之三十六计之输入处理篇Delphi之三十六计之输入处理篇Delphi之三十六计之输入处理篇Delphi之三十六计之输入处理篇Delphi之三十六计之输入处理篇Delphi之三十六计之输入处理篇Delphi之三十六计之输入处理篇