Hi !
Zitat von
traudl:
Code:
procedure TMainFrm.grdKundenTitleClick(Column: TColumn);
var i: integer;
s: String;
begin
for i := 0 to grdKunden.Columns.Count -1 do begin
if Column.Index = i then begin
qryKunden.Close;
qryKunden.SQL.Clear;
s:= grdKunden.Columns[i].FieldName;
qryKunden.SQL.Add('SELECT * FROM kunden ORDER BY ' + s);
qryKunden.Open;
end;
end;
end;
Die Spaltenbreite sollte sich eigentlich nicht ändern.
Versuchs mal so: (die Schleife ist nicht notwendig)
SQL-Code:
procedure TMainFrm.grdKundenTitleClick(Column: TColumn);
begin
qryKunden.Close;
qryKunden.SQL.Clear;
qryKunden.SQL.Add('SELECT * FROM kunden ORDER BY ' + Column.FieldName);
qryKunden.Open;
end
Hast du persistente columns im DBGrid ?
Verwende doch für das Bild ein DBJpeg (aus der
Unit DBJpeg)
