|
——此文章摘自《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; |
