快速上手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);

(T113)

上一篇： 金手指Delphi中MsComm控件的安装使用
下一篇： Delphi中用于读写的文件类型精华篇

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有