Discussion :

[gentilman_delphi]

Salut tout le monde.

Afin de copier un enreigistrement d'une table dans une autre qui ont la meme datasource on procede comme suit:
//table1.open;
//table2.open;
//table2.insert;
//table2champ.value :=table1champ.value;
...
//table2.post;

Mais mon probleme etait:

quel evenement de dbgrid1 qui fait cette operation afin de copier l'enreigistrement dans dbgrid2 ou plutot table2 ?
Aidez moi s'il vous plait.

[abdelghani_k]

Pour utiliser le glisser-déplacer entre les dbgrids,
il faut d'abord définir la propriété de la source (dbgrid1) DragMode à dmAutomatic puis l'évenement qui permet de déposer l'enregistrement sélectionner sur la destination est OnDragOver
(Se produit quand l'utilisateur dépose un objet qu'il faisait glisser)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.DBGrid2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
 
begin
  Accept:=True;  
  table2.insert;
  table2champ.value :=table1champ.value;
...
  table2.post;
end;

[abdelghani_k]

Si tu veux le faire avec la touche Enterée, C'est dans OnKeyDown de dbgrid1

voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
  begin
    Table2.Insert;
    ...
    Table2.Post
  end;
end;