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

它是由Delphi Borland公司开发的可视化开发系统。它基于Windows 95/98/NT，采用高度结构化的对象Pascal语言。具有结构清晰、优化高效的特点。尤其是最新版本的Delphi5.0，以其良好的可视化应用开发环境和强大的可扩展数据库功能，受到了广大编程爱好者和专业程序员的青睐。在编程界，流行一句话“真正的程序员用VC，聪明的程序员用Delphi”，可见是大家公认的。
现将搜集到的Delphi常用技巧收录如下，以飨广大Delphi爱好者:

输入处理文章

1.获取键盘滚动锁定、插入状态、大写锁定和数字锁定的开关状态。//Virtual =Vk_Scroll或Vk_capital或Vk_NUMLock或Vk _ insert
func key on(Virtual key:word):boolean；
begin
Result:= Bool(getkey state(virtual key)and 1)；
end；

2。当用户按下Enter/Up/Down键时，将焦点切换到下一个聚焦的对象。

//将窗体的KeyPriview属性设置为True，并编写以下代码:proceduretform 1 . form key press(sender:to object；var键:Char)；
begin
if Key = # 13 then
begin
SendMessage(Handle，WM_NEXTDLGCTL，0，0)；
Key:= # 0；
end；
end；
过程
t表单1。FormKeyDown(发送方:TObjectvar键:Wordshift:TShiftState)；
Begin
If Key = Vk _ Up then SendMessage(Handle，Wm_NextDlgCtl，1，0)；
如果Key=Vk_Down那么SendMessage(Handle，Wm_NextDlgCtl，0，0)；
end；

3。获取鼠标的绝对位置，设置鼠标的绝对位置函数GetMousePos:Tpoint；
Begin
GetCursorPos(the point)；
End；
过程SetMousePos(X，Y:Word)；；
var
Tp:Tpoint；
begin
Tp:= client to screen(Point(x，y))；
SetCursorPos(tp.x，TP . y)；