快速上手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中用于读写的文件类型精华篇

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!