用strgrid做了录入表单 要在第2列输入价格(浮点)该如和控制啊!!!
解决方案 »
- 问一个问题,关于Panel 嵌套 form?
- 控制台程序-调用EXCEL宏
- 数据输入组织,高手请进....(在线等待)
- fastreport4.9导出包含barcode的pdf
- 请问各位:为什么我的程序会这么慢,怎么解决?在线等,谢谢
- TCAD使您轻松在您的软件中加入矢量绘制功能
- sql server 中,这样的语句对不对?
- TTreeView怎么构建层次树形结构(数据库相关)?
- 请问Delphi高手:如何在DBGrid中显示一个图标(Icon)-符合某一条件时(如该列值<0时)?
- 一个绝对具有挑战性的问题!!高手请进!~~~~~~~~~~~
- 在delphi7的New Items对话框中的Multitier选项卡里如何没有MTS DataModule项?
- 问一个最基本的报表打印问题
procedure TfrmMarket.stgMarketSelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
rowv:=arow;
colv:=acol;
if (colv in [1,2,3,4,7]) then
colchange(false)
else
colchange(true);
end;
行数和列数使能函数
procedure TfrmMarket.ColChange(AColEnabled:boolean); procedure AColEnable;
begin
stgMarket.Options :=stgMarket.Options+[goEditing];
// stgMarket.Options :=stgMarket.Options+[goAlwaysShowEditor];
end; procedure AColDisable;
begin
stgMarket.Options :=stgMarket.Options-[goEditing];
// stgMarket.Options :=stgMarket.Options-[goAlwaysShowEditor];
end;begin
if AColEnabled=true then
AColEnable
else
AColDisable;
end;
限制输入事件
procedure TfrmMarket.stgMarketKeyPress(Sender: TObject; var Key: Char);
procedure InputIntNumber;
begin
if not (key in ['0'..'9',#8]) then
key:=#0;
end; procedure InputFloatNumber;
begin
if not (key in ['0'..'9','.',#8]) then
key:=#0;
end;
begin
case colv of
5:InputIntNumber;
6:InputFloatNumber;
end;
end;根据具体情况,你参考处理一下