獲取DataGrid單元格中的內容與鎖定文本框中的文本

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

    如何獲取DataGrid單元格中的內容

    本例是通過DataGrid表格單元格單擊事件獲取單元格中的內容如圖所示

    在DataGrid的單元格單擊事件中使用當前單元格的FieldText屬性獲取當前單元格中的文本並在當前單元格內容為文本框中顯示主要代碼如下
    procedure TFrmOrderByDBGListCellClick(Column: TColumn);
    begin
      EditText := ColumnFieldText;
    end;

http://developcsaicn/delphi/images/jpg>
圖  獲取DataGrid單元格中的內容

    如何鎖定文本框中的文本

    在應用程序中當用戶操作完畢後或不想讓其他用戶對文本框中的內容進行編輯時可以鎖定文本框中的文本如圖所示

http://developcsaicn/delphi/images/jpg>
圖  鎖定文本框中的文本

    如果鎖定文本框中的文本復選框為選中狀態那麼設置文本框為只讀狀態如果鎖定文本框中的文本復選框為未選中狀態那麼設置文本框為可讀寫狀態主要代碼如下
    procedure TFormchkClick(Sender: TObject);
    begin
      if chkChecked then
       EditReadOnly := true
      else
       EditReadOnly := false;
    end;

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