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