if key = VK_F4 then with pgc do begin qryPGC.Filter:='conte=' +quotedstr(edit3.Text); qryPGC.Filtered:= true; showModal; end;
if key = VK_F4 then with pgc do begin qryPGC.Filtered:= false; qryPGC.Filter:='conte=' +quotedstr(edit3.Text); qryPGC.Filtered:= true; showModal; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question....OnKeyPres...Dbgrid3..... if key = VK_F4 then PGC.showModal; Bla bla bla // <- Ce code ne sera exécuté qu'à la fermeture de PGC !!!