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

页面导航:首页 > 软件编程 > Delphi > 快速上手Delphi三十六计之输入处理篇

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

来源: 作者: 时间:2016-02-05 11:47 【

Delphi是Borland公司开发的可视化开发系统,它基于Windows 95/98/NT,采用高度结构化的Object Pascal语言,具有结构清晰、高效优化的特点。尤其,最新版Delphi5.0更以其良好的可视化应用程序开发

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);

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <