如题
解决方案 »
- 请问哪位知道GDI+ 怎样设置文本的行距?
- 如何截获DBGRID的滚动条的点击、移动事件
- 对文件进行监控
- 如何获得的文本信息,然后转换为字符(一个难道了很多高手的问题)
- DataModule1.ADOQuery1.Parameters.ParamByName('valueset').ASSTRING
- MDI窗体问题
- 求教!!!! delphi4 是否可在windows xp 环境下安装?
- delphi怎样定时间触发做某一事件?(要求效率高)
- 请问如何实现当鼠标移动到按钮上,按钮上的文字自动变颜色
- 有关VC和Delphi的比喻。。。
- 如何允许输入的值是Backspace
- 怎样定义一个public 的二维数组?
begin
dm.chaxu.Sort:=column.FieldName;
end;
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var i : integer;
begin
for i:= 1 to DBGrid1.Columns.Count do
begin
//恢复所有标题字体为默认
DBGrid1.Columns[i-1].Title.Font.Color := clWindowText;
DBGrid1.Columns[i-1].Title.Font.Style := [];
end;
if ADOQuery1.Sort<>(Column.FieldName+' ASC') then //判断原排序方式
begin
ADOQuery1.Sort := Column.FieldName+' ASC';
Column.Title.Font.Color := clRed; //改变标题行字体为红色,表示当前的排序方式为升序
Column.Title.Font.Style := [fsBold];
end
else begin
ADOQuery1.Sort := Column.FieldName+' DESC';
Column.Title.Font.Color := clBlue; //改变标题行字体为红色,表示当前的排序方式为降序
Column.Title.Font.Style := [fsBold];
end;
end;
大部分列可以实现
但有一列column.filedname是公式‘FiledA-FieldB'
好像就报错