Discussion :

[dibak]

Bonjour,
j'ai 2 forms une form1 que j'utilise comme Datamodule, et j-y est posé un TDataset(TUnistoredProc),
et une autre form2 qui a un TDBGrid et un TEdit, le TDBGrid est relié à un TDataSource qui se trouve sur la Form1
je voudrais que quand je scoll sur le TDBGrid qui est sur la form2, les informations de la ligne courante s'affiche sur TEdit qui est dans la form2.
autrement dit le fait de scroller sur la TDBGrid de la form2 declenche l'evenement Afterscroll de la TDataset qui se trouve dans la form1 et moi dans la form2, je dois voir mon TEdit etre renseigné des informations du record courant.
comment le reussir?
Merci d'avance sur vos réponses
Cordialement,
Dibak.

[MarcG34]

Pourquoi ne pas utiliser l'évènement Oncellclickpour avoir l'enregistrement selectionné

[dibak]

Pourquoi ne pas utiliser l'évènement Oncellclickpour avoir l'enregistrement selectionné

Merci bien MarcG34 pour ta réponse.
En fait, j'ai déja utilisé l'évènement Oncellclick pour avoir l'enregistrement selectionné, ça marche bien lorsque j'utilise la souris pour cliquer sur une ligne de la Grid.
Mais moi je voulais aussi utiliser les boutons de defilement haut et bas. Mais j'ai déjà trouvé une solution à ce problème,
voici en résumé la procdure:

pour utiliser un événement qui se produit dans une autre form, il suffit de créer un nouvel événement dans la form dans laquelle vous voulez l'obtenir, et dans la form d'envoi (form1) vous faites ce qui suit :
if assigned(OnScroll) thenOnScroll(<<paramètres>>)
Dans cette form, vous créez une propriété appelée OnScroll avec les paramètres appropriés (c'est-à-dire égal à l'événement que vous voulez obtenir) et ensuite dans l'autre form (form2), vous assignez ce OnScroll à une procédure locale
exemple : Form2.XXX. OnScroll := DoOnScroll
Et vous déclareriez une procédure appelée DoOnScroll(<<paramètres>>)

Cordialement,
Dibak