yo utilizo estas sentencias para el evento DBGrid1TitleClick
procedure TBrAyu_PptoForm.DBGrid1TitleClick(Column: TColumn);
const PreviousColumnIndex : integer = -1;
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;
Column.Title.Font.Style := [fsBold];
Master.IbPpto.Close;
Master.IbPpto.SelectSql.clear;
Master.IbPpto.SelectSql.Add('select * from ppto');
Master.IbPpto.SelectSql.Add('where Emps=:Emps');
Master.IbPpto.SelectSql.Add('Order By '+Column.FieldName+'');
Master.IbPPto.Params[0].AsInteger:=Master.IbEmpreEmps.Value;
Master.IbPpto.Open;
Ordenar_x:=Column.FieldName;
Edit3.text:=Column.FieldName;
Master.IbPpto.First;
end;
|