Witam,
mam problem, który dziś cały dzień usiłuje rozwiązać.
Po przeniesieniu projektu z Delphi 2007 do Delphi XE2 przestało działać zdarzenie DBGrid1TitleClick - nic, w ogóle nie jest uruchamiane po kliknięciu.
Jest wiele wpisów na różnych forach, ale niestety google tym razem nie pomogło.
Proszę o wartościową wskazówkę. Co zrobić żeby Delphi XE2 reagowało na TitleClick?
Pozdrawia i dziękuje
Piotr
procedure TFListaWysylkowa.DBGrid1TitleClick(Column: TColumn);
const // Note the revised order in which constants are defined
DESC : WideString = ' DESC';
SORT_COL = 4; // Or whatever your date column is
NO_PREV_COL = -1;
{$J+}
const PreviousColumnIndex : integer = NO_PREV_COL;
{$J-}
begin
if DBGrid1.DataSource.DataSet is TCustomADODataSet then
with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
begin
try
DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=
DBGrid1.Columns[PreviousColumnIndex].title.Font.Style - [fsBold];
except
end;
Column.title.Font.Style :=
Column.title.Font.Style + [fsBold];
PreviousColumnIndex := Column.Index;
//if (Pos(Column.Field.FieldName, Sort) = 1)
//and (Pos(' DESC', Sort)= 0) then
if (Pos(WideString(Column.Field.FieldName), Sort) = 1) and (Pos(WideString(' DESC'), Sort)= 0) then
Sort := Column.Field.FieldName + ' DESC'
else
Sort := Column.Field.FieldName + ' ASC';
end;
end;