dbgrid中如何嵌入maskedit 在线等待阿 ( 为什么comboobx可以嵌入而maskedit不可以)(60分)

  • 主题发起人 主题发起人 maginnn
  • 开始时间 开始时间
M

maginnn

Unregistered / Unconfirmed
GUEST, unregistred user!
用dbgrid录入数据
dbgrid中对应3列
id time name
其中id已经确定了
id time name
1
2
3
4
显示在dbgrid中了,现在要添加time name字段
想要在dbgird的column【1】中嵌入maskedit控件,来限制时间格式的输入
如何嵌入?
达到,焦点不道该cell的时候,不显示maskedit,焦点道该cell时候才显示maskedit
???

combobox当然了
移上去的时候,combobox出现下拉框
可是maskedit就不行,我把maskedit设置成short time类型 那么它应该
直接受4个integer,而且中间应该有“:”格开的
但是,它就是不出来阿!!
if column.FieldName='time' then// begin
with maskedit1 do
begin
left:=rect.Left +dbgrid2.Left;
top:=rect.Top +dbgrid2.Top;
width:=rect.Right-Rect.left;
height:=rect.Bottom -rect.Top;
visible:=true;
end;
end;
 
这样试试,我一直在线的
maskedit.Parent := dbgrid;
maskedit.BoundsRect := dbgrid.CellRect(dbgrid.Col,dbgrid.Row);
 
maskedit1.parent:=self;//加上这句看看
 
to 往事如风
dbgrid.CellRect(dbgrid.Col,dbgrid.Row);
提示cellrect不对阿
to hanpensha_00 不对阿
倒是可以出现maskedit了但是,录入数据后没有赋值给dbgrid阿
 
Sorry,好久没用过dbgrid了,这样可以,我试过了:
maskedit1.Parent := dbgrid1;
maskedit1.BoundsRect := TDrawGrid(dbgrid1).CellRect(TDrawGrid(dbgrid1).Col,TDrawGrid(dbgrid1).row);
 
副值给dbgrid需要你自己去写代码实现的,在我的代码中,
它已经把当前行给掩盖了,看到的只有maskedit了!
 
to 往事如风
多谢了
对阿,它只是把当前杭覆盖了,焦点移开后,dbgrid中还是,原来底数值
 
而且还狂闪
 
我有办法,给我多少分呀,前几天我还做了一个呢,60分太少了吧,我的那个程序我做了一下午呢,还是比较难的
 
100分怎么样阿
可以发道我的email中,可以的话决定给分
jxzhou1977@hotmail.com
 
用到嵌入maskedit那麼麻煩嗎?字段裡就有EditMask屬性了。
AdoTable1.FieldByname('time').EditMask:='!90:00:00>LL;1;_'; 顯示時間
 
'!90:00:00>LL;1;_'
什么意思阿??
 
你試了就知道了。就是從EditMask裡面抄出來的顯示時間格式的字符串。
 
多人接受答案了。
 
后退
顶部