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

相关阅读 >>

delhpi如何直接获得webbrowser输入的xml文件

Delphi 安卓添加资源图片并读取

Delphi 控制鼠标按坐标点击

Delphi opentextfiledialog用法

Delphi 窗体的位置和高宽度-tform:letf、top、width、height、clientwidth、clientheight

Delphi 获取网站验证码的图片

Delphi repeat 递增/递减输出

Delphi monthcalendar1 获取选中日期

Delphi 取pe文件的引入表和导出表

Delphi textfile utf8编码读写

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



打赏

取消

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

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

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

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

评论

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