Pourquoi un double clic sur une sélection ne le positionne pas comme d&#233

Question

Bonjour

J'ai une DBgrille. Lorsque je double clique sur un enregistrement, il se lance sur le premier enregistrement au lieu de celui cliqué.
Le double clic entame l'affichage d'une fenêtre de saisie différente de la fenêtre Grille.
Est-ce que l'on peut m'orienter vers ce problème ?

Merci à tous

Cordialement vôtre
------------------------------------------------
Le savoir est la clé de l'évolution. L'évolution sert à l'homme malgré tous ses mauvais côtés

cs_Nono40 · Answer

La question n'est pas très claire...

Que fais-tu exactement lors du double-click ? Affiches-tu une fenêtre de saisie ? Si c'est le cas est-ce sur la même base de données que celle de la grille ?

--- :sleepy)  Nono40@fr.st  :sleepy) ---
Nouveau ---> Nono40.fr.st

cs_Delphiprog · Answer

Je pense que tu oublies de synchroniser l'ensemble de données affiché dans la deuxième fenêtre. Si tu utilises des composants TTable, alors utilises aussi la méthode GotoCurrent :

Table2.GotoCurrent(Form1.Table1);

et ceci dès l'ouverture de la deuxième fenêtre, ici dénommée form2.
May Delphi be with you

BXDS · Answer

Bonjour
Merci pour cette piste.
Vous avez compris mon problème pour synchroniser l'ensemble de mes données.
Seul hic, j'utilise un datamodule. Comment arriver à une synchronisation entre les deux ou plutôt comment envoyer l'information de la position courante de mon enregistrement à l'autre form.

Merci à tous

Cordialement vôtre
------------------------------------------------
Le savoir est la clé de l'évolution. L'évolution sert à l'homme malgré tous ses mauvais côtés

cs_Delphiprog · Answer

Alors, c'est encore mieux !
Chaque fiche référence le datamodule dans sa clause Uses :

Dans la première fiche :

uses
  Datamodule1;
...


puis dans la deuxième fiche :


uses
  Datamodule1;
...
procedure TForm2.FormActivate(sender: TObject);
begin
  DataModule1.Table2.GotoCurrent(DataModule1.Table1);
end;

Il n'est pas question d'informer la deuxième fiche d'un changement de la position courante dans la première table.
D'ailleurs, une seule table suffit, seule la présentation est différente dans la deuxième fiche. Dans ce cas, les contrôles visuels sur cette deuxième fiche devront avoir le même datasource que ceux de la première fiche. Ainsi, tu ne gères qu'un seul curseur de table.
L'utilisation de la méthode GotoCurrent est valable si l'on décide de mettre les composants descendants de TDataSet sur les fiches et assurer une liaison entre eux.
Dans le cas de l'utilisation d'un TDataModule, elle n'est plus nécessaire, sauf pour assurer une compatibilité avec Delphi 1 !
May Delphi be with you

BXDS · Answer

Merci à tous

Cordialement vôtre
------------------------------------------------
Le savoir est la clé de l'évolution. L'évolution sert à l'homme malgré tous ses mauvais côtés

BXDS · Answer

Bonjour

Donc, selon la dernière explication, il faut que je créé 2 tables dans mon datamodule avec la même datasource. Bizarre, Ou dois-je disposer un élément TableData sur la form Liste et un autre dans la forme Fiche ?

Merci à tous

Cordialement vôtre
------------------------------------------------
Le savoir est la clé de l'évolution. L'évolution sert à l'homme malgré tous ses mauvais côtés

cs_Delphiprog · Answer

J'ai dû mal m'expliquer. Je reprends.
Premier cas : tu disposes tes composants TTable sur les fiches. Dans ce cas, pour synchroniser l'affichage des fiches, tu utiliseras la méthode GotoCurrent.

Deuxième cas (meilleur) : tu disposes un composant TTable sur un Datamodule, ce dernier étant référencé par chaque fiche ayant besoin d'accèder aux données. Ce composant TTable est relié à un TdataSource, auxquels sont reliés les contrôles visuels orientés données.
Dans le schéma ci-dessous :
-> signifie : "relié à"
(datasource) signifie "par la propriété"

Fiche 1 : 
DbGrid1-(datasource)->Datamodule1.DataSource1-(DataSet)->DataModule1.Table1

Fiche 2 :
DbEdit2-(DataSource)->DataModule1.DataSource1-(DataSet)->DataModule1.Table1


Suis-je plus clair ?
May Delphi be with you

BXDS · Answer

Bonsoir

Tout à Fais

Merci à tous

Cordialement vôtre
------------------------------------------------
Le savoir est la clé de l'évolution. L'évolution sert à l'homme malgré tous ses mauvais côtés

Pourquoi un double clic sur une sélection ne le positionne pas comme d&#233

8 réponses

Votre réponse

Discussions similaires