|
uso componentes zeos y utilizo estas instrucciones para ordernar al hacer click sobre un columna del dbgrid
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
num:Integer;
i : integer;
begin
for i:= 1 to DBGrid1.Columns.Count do
begin
DBGrid1.Columns[i-1].Title.Font.Color := clWhite;
DBGrid1.Columns[i-1].Title.Font.Style := [];
end;
Column.Title.Font.Color := clBlack; //Coloca en color negro la columna Pinchada
Column.Title.Font.Style := [fsBold];
Ibdataset.SortedFields := Column.FieldName;
end;
espero que te sirva
atte
jgutti
|