有没有Time这个函数,
如果有问题就解决了
如果有问题就解决了
解决方案 »
- delphi x 问: 1
- 想学Delphi 但没头绪(会corejava,javaEE)
- 区别Application.Terminate和close
- 求助!
- 在用PRINTER对象打印时,显示的时候用Canvas对象,如何进行缩放操作,
- 想从C++转到DELPHI,请前辈们指点一二
- MessageBox(TeacherForm.Handle,'共找到ADOQuery1.RecordCount条记录!','提示',MB_OK or MB_APPLMODAL or MB_ICONINFORMATION)
- 在delphi中如何判断一个字符串由数字组成
- 数据类型的问题,请来解答!
- InsideDelphi 有胆进来. 一个关于邮件合并的问题
- 各位大虾:如何将图片资料保存到数据库中?如何在image和DBimage控件中读取TIFF格式的图片?
- 函数指针怎么用?
Size : integer;
在事件OnDrawColumnCell中键入
if (Column.Field.FieldName = '你的时间字段名') then
begin
Text := DateToStr(Column.Field.AsDate) + ' '+TimeToStr(Column.Field.AsDate);
end else
begin
Text := Column.Field.AsString;
end;
Size := (Sender as TDBGrid).Canvas.TextExtent(Text+' ');
(Sender as TDBGrid).Canvas.TextRect(Rect,Rect.Right-Size.cx+2,Rect.Top+2,Text);
end;
var Text : string;
Size : integer;
在事件OnDrawColumnCell中键入
if (Column.Field.FieldName = '你的时间字段名') then
begin
Text := TimeToStr(Column.Field.AsDate);
end else
begin
Text := Column.Field.AsString;
end;
Size := (Sender as TDBGrid).Canvas.TextExtent(Text+' ');
(Sender as TDBGrid).Canvas.TextRect(Rect,Rect.Right-Size.cx+2,Rect.Top+2,Text);
end;
两位所说的是设置Table的字段吧,可设置后在DBGrid中一点效果都没有:(
Sorry!我设成EditMask了,设了DisplayFormat确实有效果,但进入Edit状态时,被
隐藏的数据又会全部显示出来。