關於文本框輸入控制的兩個小問題

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>

    如何設置光標到文本框的末尾

    在應用程序中為了避免錄入數據時光標在文本框的其他位置而沒有在文本框的末尾導致數據不正確可以設置光標在文本框的末尾本例實現單擊光標移到末尾按鈕使光標移到文本框的末尾如圖所示

圖  設置光標到文本框的末尾

    在光標移到末尾按鈕的單擊事件中使文本框獲得焦點然後設置光標的起始位置在文本框的內容之後主要代碼如下
    procedure TFormbtnClick(Sender: TObject);
    begin
      EditSetFocus;
      EditSelStart := length(trim(EditText));
    end;

    控制在文本框中只能輸入兩位小數

    本例實現在KeyPress（鍵盤按下）事件中判斷錄入的文本中是否有小數點如果有則判斷小數點後的小數位是否超過兩位如果超過兩位則控制鍵盤不可錄入

    主要代碼如下
    procedure TFormEditKeyPress(Sender: TObject; var Key: Char);
    var
      p c: Integer;
    begin
      p := Pos( TEdit(Sender)Text);
      if p > then
      begin
       c := Length(TEdit(Sender)Text);
       if c >= p + then
        key := #;
      end;
    end;

From:http://tw.wingwit.com/Article/program/Delphi/201311/8491.html