近段时间学习使用AdvStringGrid,想在指定单元里用百分率显示!
可以用AdvStringGrid1GetFormat实现吗?请高手指教。。
还有,请问谁有关于
AdvStringGrid的帮忙文档,可以传我一份吗?谢谢。。
QQ:80415365
Email:[email protected]
可以用AdvStringGrid1GetFormat实现吗?请高手指教。。
还有,请问谁有关于
AdvStringGrid的帮忙文档,可以传我一份吗?谢谢。。
QQ:80415365
Email:[email protected]
解决方案 »
- delphi dbgrideh
- 主细表分页打印问题,第二页也要打印出主表头,(reportmachine3.0)
- 如何做出Delphi中对象属性编辑器一样的面板?
- 问计算两个日期之间的天数(除去星期六,星期天)!!!!
- cxPageControl 能否做到透明?
- 为什么用close不能完全关闭程序,程序占用的资源为什么不能释放完全。
- 删除数组的其中一项,后面的前移,最好的方法是什么?
- 请问怎样用IF 判断Button1.Enabled 是TURE还是FALSE ???
- 关于TWebBrowser的NewWindow2事件的问题
- Delphi6的盗版已经到了@_@
- 初級問題
- 字符串 转换成 键值!!!比如把 'F1’ 这个字符串转换成键值!
demo在tms的官网上有
www.tmssoftware.com
procedure TForm1.asg1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
strCellText: string;
dblValue: double;function IsNum(str: string): boolean;
var
i: integer;
begin
for i := 1 to length(str) do
if not (str[i] in ['0'..'9', '.', '+', '-']) then
begin
result := false;
exit;
end;
result := true;
end;begin
strCellText := asg1.Cells[ACol, ARow]; //获得Cell的内容
if strCellText = '' then exit;
if IsNum(strCellText) then //判断是否是数字
begin
dblValue := strtofloat(strCellText);
dblValue := dblValue * 100; //由于是百分率,所以要乘上100
strCellText := format('%.2f', [dblValue]) + '%'; //格式化
asg1.Canvas.FillRect(Rect); //清空原显示
asg1.Canvas.TextOut(Rect.Left, Rect.Top, strCellText); //把文字画出来
end;
end;
事实上,有了这个事件,你可以显示任何你想显示的东西,甚至是图片,简直可以说是天马行空。