Hvordan laver jeg en Hotkey der giver DD i en DBGrid

Hvad er DD ???

DAGS DATO

du laver en KeyPress event som sætter en DateTimeToStr(Now) ind i den selectede record, og opdaterer dbgriden igen

/Martin

Det har jeg prøvet, men så bliver dato og tid opdateret når jeg skriver noget i de andre celler i recorden.
jeg har 2 dato celler og 2 tidsceller og 1 tekstcelle.
Derfor ville jeg gerne have en HOTKEY f.eks. F8 der så skulle give datoen i den celle jeg står i og tiden hvis det er en tidscelle.
Koden jeg har lavet til Keypress eventen ser sådan ud :
procedure TfrmHVHVHV.GKalenderKeyPress(Sender: TObject; var Key: Char);
var
  DatoStr : string;
  TidStr : string;
begin
  DateTimeToString(DatoStr, 'dd-mm-yyyy', DateTimePicker.DateTime);
  DateTimeToString(TidStr, 'hh:nn:ss', Time);
  frmHVHVHV.DBTKal.edit;
  frmHVHVHV.DBTKal.FieldByName('FraDato').Value := DatoStr;
  frmHVHVHV.DBTKal.FieldByName('TilDato').Value := DatoStr;
  frmHVHVHV.DBTKal.FieldByName('Fratid').Value := TidStr;
  frmHVHVHV.DBTKal.FieldByName('Tiltid').Value := TidStr;
end;

Du mangler lige en line til sidst

frmHVHVHV.DBTKal.Post;

altså sådan

procedure TfrmHVHVHV.GKalenderKeyPress(Sender: TObject; var Key: Char);
var
  DatoStr : string;
  TidStr : string;
begin
  DateTimeToString(DatoStr, 'dd-mm-yyyy', DateTimePicker.DateTime);
  DateTimeToString(TidStr, 'hh:nn:ss', Time);
  frmHVHVHV.DBTKal.edit;
  frmHVHVHV.DBTKal.FieldByName('FraDato').Value := DatoStr;
  frmHVHVHV.DBTKal.FieldByName('TilDato').Value := DatoStr;
  frmHVHVHV.DBTKal.FieldByName('Fratid').Value := TidStr;
  frmHVHVHV.DBTKal.FieldByName('Tiltid').Value := TidStr;
  frmHVHVHV.DBTKal.Post;
end;

Hvordan laver jeg en ALT + D kombination key
F.eks. trykker jeg ALT+D giver det dato
jeg har prøvet med "ssAlt in Shift" men den reagerer ikke på dette ??

Nå nu har jeg fået det til at virke