控制文本框只能錄入數字

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    控制文本框只能錄入數字

    在應用程序中為了提高數據的有效性可以對文本框中錄入的數據進行相應的控制例如在錄入年齡的時候如果不加以控制錄入了字符在對年齡進行平均值運算時會引起類型錯誤本例是在錄入學生年齡文本框中錄入學生的年齡時只能錄入數字不允許錄入字母或其他字符如圖所示

    在文本框的鍵盤按下事件中通過按鍵值（key）來控制文本框中只能輸入到這個數據和小數點（）主要代碼如下
    procedure TFormedtKeyPress(Sender: TObject; var Key: Char);
    begin
     if not (key in [])  then
     begin
      ShowMessage(學生年齡只能錄入數字);
      key:=#;
      end;
    end;

    如何在DataGrid中嵌入LookupComboBox

    在開發過程中很多時候都需要在表格中嵌入 LookupComboBox組件來對數據進行編輯也就是在DataGrid表格單元上浮動一個LookupComboBox組件當DataGrid 表格單元取得焦點時在單元的位置上顯示LookupComboBox組件並使LookupComboBox組件獲得焦點如圖所示

http://developcsaicn/delphi/images/jpg>
圖  在DataGrid中嵌入LookupComboBox

    在DataGrid表格的DrawColumnCell事件中設置LookupComboBox組件左邊距上邊距及寬高和顯示狀態主要代碼如下
    procedure TFrmOrderByDBGListDrawColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TColumn;
      State: TGridDrawState);
    begin
      if (gdFocused in State) then
       begin
        if (ColumnFieldFieldName = DBLookupComboBoxDataField) then
         begin
           with DBLookupComboBox do
             begin
              Left := RectLeft + DBGListLeft;
              Top := RectTop + DBGListtop;
              Width := ColumnWidth + ;
              Height := RectBottom RectTop;
              Visible := True;
              SetFocus;
             end;
          end;
       end;
    end;

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