Hast Du denn schon AfterOpen-Ereignisse?
Wenn nein, dann eine Routine schreiben und die allen entsprechenden Komponenten zuweisen.
Delphi-Quellcode:
procedure TForm1.ADOQryAfterOpen(DataSet: TDataSet);
var
i : Integer;
begin
for i := 0 to DataSet.Fields.Count - 1 do begin
case DataSet.Fields[i].DataType of
ftDateTime : DataSet.Fields[i].DisplayFormat := 'YYYY-MM-DD HH:MM:SS';
ftDate : DataSet.Fields[i].DisplayFormat := 'HH:MM:SS';
ftTime : DataSet.Fields[i].DisplayFormat := 'YYYY-MM-DD';
end;
end;
end;
// Irgendwo zentral z. B. sowas in der Art:
procedure TForm1.SetAfterOpen;
var
i : Integer;
begin
for i := 0 to ComponentCount do begin
if Components[i] is TDataSet then TDataSet(Components[i]).AfterOpen := ADOQryAfterOpen;
end;
end;
auch wieder nur hingedaddelt.