Ich benutze gerne dies kleine GridSort Programm um beim klicken auf den Title des Grid, nach dieser Spalte zu sortieren.
Das funktionierte auf meinem Computer mit Delphi7 immer problemlos, jetzt hab ich auf einem anderen PC mal Delphi2005 installiet und dort ein Projekt aufgerufen in dem diese Procedure verwendet wird und erhalte dann folgenden Fehler:
'TColumn' does not contain a member named 'Title'
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
|
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
{$J+}
const PreviousColumnIndex: integer = 1;
{$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 := <<<<< Hier tritt der Fehler auf
Column.title.Font.Style + [fsBold];
PreviousColumnIndex := Column.Index;
if (Pos(Column.Field.FieldName, Sort) = 1)
and (Pos(' DESC', Sort) = 0) then
Sort := Column.Field.FieldName + ' DESC'
else
Sort := Column.Field.FieldName + ' ASC';
end;
end;
|
Danach kommen dann noch einige Folgefehler, die aber die gleiche Ursache haben.
Was habe ich hier übersehen noch einzurichten ??
