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

相关阅读 >>

Delphi xe 横屏竖屏的管理

Delphi如何生成一段时间内的所有日期

Delphi 一个定时器timer1相关的简单例子

Delphi firemonkey移动应用程序将设置保存到ini文件的示例

Delphi unigui执行程序部署有3种形式

Delphi xe 新功能试用:多种皮肤样式静、动态设置方法

Delphi��image存入读取mysql数据库

Delphi安卓动态切换本地主题

Delphi xe 在图片上写字

Delphi整理五(枚举、子界、集合)

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



打赏

取消

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

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

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

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

评论

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