讓兩個文本框中的內容同時改變

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

    讓兩個文本框中的內容同時改變

    應用程序可以通過文本框的Change事件實現兩個文本框中的內容同步如圖所示

http://developcsaicn/delphi/images/jpg>
圖  兩個文本框中的內容同時改變

    文本框的Change事件是在文本框內容改變的時候觸發的當文本框的內容發生改變時把文本框中的內容賦給文本框使兩個文本框中的內容保持同步主要代碼如下
    procedure TFormFormShow(Sender: TObject);
    begin
     EditSetFocus;
    end;
    procedure TFormEditChange(Sender: TObject);
    begin
     EditText := EditText;
    end;

    格式化DataGrid表格中的數據

    在DataGrid表格中對數據進行格式化可以使數據更規范查看更方便本例實現對單價字段中的數據進行格式化使小數位保留兩位小數如圖所示

http://developcsaicn/delphi/images/jpg>
圖  格式化DataGrid表格中的數據

    在格式化表格數據按鈕中設置DataGrid表格列對象ADODataSetDSDesigner的DisplayFormat屬性主要代碼如下
    procedure TFrmOrderByBtnOrderClick(Sender: TObject);
    begin
     ADODataSetDSDesignerDisplayFormat := ;
     DBGListColumns[]Color := clyellow;
    end;

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