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