您的位置：首页 > 编程语言 > Delphi

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

2008-11-23 21:18 627 查看

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

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航