Vis Dato i Datab. efter hvilken DBGrid-celle der bliver klikket i

Prøv noget lign. nedenstående

procedure vissalg(lodret,vandret:integer);
var
  aar:integer;
  dato:tdate;
  salgfrm : TfrmSalg;
begin
  aar := 2002; // aar variablen kunne jo også være en param. ligesom lodret
  dato := encodedate(lodret,vandret,aar);
  salgfrm := TfrmSalg.Create(nil);
  salgfrm.table1.setrangestart;
  salgfrm.table1.fieldbyname('dato').Asdate := dato;
  salgfrm.table1.setrangeend;
  salgfrm.table1.fieldbyname('dato').asdate := dato;
  salgfrm.table1.applyrange;
  salgfrm.table1.open;
  salgfrm.show;
end;
 
// Vissalg proceduren skal kaldes onclick i cellerne og udfyldes med koordinaterne. I eksemplet går jeg ud fra at du har en table1 som er knyttet op til salgdb og at der i denne database er et felt ved navn dato.