Время в DBGrid

[Trikster]

БД в аксесс, использую ADO.

как записать время в БД так, чтобы в DBGrid отображалось только время без даты 30.12.1899 ????

[Gulik]

Начни с того как ты это делаешь. И тебе укажут на ошибку

[Trikster]

вот

var id:string;
    rez:string;
    PR:string;
    TM:TDateTime;
    myDate:TDateTime;
begin

  // ShowMessage(Main.Label2.Caption);
  TM:=strtotime('00:'+Main.Label2.Caption);
 // myDate:=strtoTime(Main.Label2.Caption);
  FormatDateTime('tt', TM);
  ShowMessage(FormatDateTime('tt', TM));
  Label7.Caption:=inttostr(Main.kol_true);
  With Form3 do
    begin
      id:=inttostr(Form3.id_stud);
      rez:=inttostr(Main.kol_true);
      try
       ADOQuery1.Close;
       ADOQuery1.SQL.Clear;
       ADOQuery1.SQL.Text:='Update Студенты SET Результат=:b,[Время за тест]=:d WHERE id_stud=:a';
       ADOQuery1.Parameters.ParseSQL(ADOQuery1.SQL.Text, true);
       ADOQuery1.Parameters.ParamByName('a').Value:=id;
       ADOQuery1.Parameters.ParamByName('b').Value:=rez;
       ADOQuery1.Parameters.ParamByName('d').Value:=TM;
       ADOQuery1.ExecSQL;
      except on e:Exception do
     end;
   end;

В access все нормально отображается, а вот в DBGRid нет

[_Engine_]

настрой у поля displayformat

[Аватар]

или у DBGrid используй OnDrawDataCel

[Trikster]

или у DBGrid используй OnDrawDataCel

а можно поподробнее? Все что я пока нашел про OnDrawDataCell, это как раскрасить строку(

[Аватар]

только не OnDrawDataCel, а OnDrawColumnCel

if Column.Field=... then begin
  s:=форматируем нужный вид времени
  DBGrid1.Canvas.TextRect(Rect,Rect.Left+1,Rect.Top,s);
end;

а что мешает field-у DisplayFormat задать? Это проще будет