BlueGEEK Journal

Accueil > Manip’s > Delphi > Touches > Activer un CTRL+ENTREE

Activer un CTRL+ENTREE

dimanche 13 septembre 2009, par bluegyn_spip

procedure TFrm_VISUDOC.FormKeyUp(Sender: TObject; var Key: Word;

 Shift: TShiftState);

begin



if (Key=VK_RETURN) and (ssCtrl in Shift) then self.DOC_DEPLACER.Execute;



end;

Mettre le FORM -> KeyPreview à true