在dbgrid中,要把一列数据(比如:密码)全部用******来显示,请问各位行家该如何做?
解决方案 »
- 刚下定决心放弃delphi,可是大家这几天的话,让我心又要冷了,我该怎么办?
- 有关Barcode控件的应用,各位高手帮帮忙
- 为什么我的web server application程序没有错误,发布后(本机调试)显示该网页无法显示?
- 能否在一个界面上,把数据同时写入两个不同的数据库系统
- 初学者问,谁用过virtualtree这个控件,我怎么安装不上?
- 急救!!!!分数不够我可以加,上限500!
- 求酒店管理系统DELPHI源代码!
- (傻傻地问)如何把两幅图片做成一个按钮?
- 请指教怎样才能完成一个程序的自我复制(向病毒那样的)
- 高难度问题,非高手莫进......(此题问倒n个人 n>=10)
- 用StringGrid做数据输入的疑问??
- 新手的苦恼:怎样对程序中共享的算法进行合理的模块化?
显示的时候绑定列showpass。
procedure TSaleQueryForm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If (Column.FieldName='Money') Or (Column.FieldName='Cash') Or (Column.FieldName='Price') Or (Column.FieldName='Leave') then
begin
With DBGrid1.Canvas do
begin
FillRect(Rect);
TextRect(Rect,Rect.Left,Rect.Top,Format('%m',[Column.Field.AsFloat]));
end;
end;
end;