快速上手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 fdquery1查询,有无返回集

Delphi 更改消息对话框中的按钮标题

Delphi获取 斐波那契数列 的函数

Delphi tidhttp+tidssliohandlersocket+ssl

Delphi 读写文本文件

Delphi xe10 手机端错误提示:detected problems with api compatibility (visit g.co/dev/appcompat for more info

Delphi 安卓获得设备 id

Delphi 新增功能之: ioutils 单元(7): tfile 结构的功能

github上通过星级评估排名前10的最受欢迎的开源Delphi项目

Delphi 为当前窗口客户区捉图: getformimage

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



打赏

取消

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

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

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

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

评论

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