evt1 est un entier = Evenement( "evTable","*.Table1", 0 )
PROCEDURE evTable( pMess est un entier, wParam est un entier, lParam est un entier)
//On renvoie le message recu vers la table2
SendMessage(Handle(Table2), pMess , wParam, lParam)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=19&topic_id=5924&post_id=23900