Insérer la date du jour dans l'éditeur par combinaison de touches

Bonjour

Je cherche à insérer la date du jour dans l'éditeur de Lazarus. Par exemple avec Delphi les touches "Ctrl+alt+a" insèrent la date du jour.

Je me sers de ce raccourci pour dater les entêtes des procédures ou fonctions.

Merci de vos réponses ;).

Bonjour, :P

Ajouter Windows à uses et KeyPreview=True.

Code:

---

1 2 3 4 5 6

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Shift=[ssCtrl,ssAlt] then if Key=VK_a then Edit1.Text:=DateToStr(Date) ; end;

---

merci.

Dans l'IDE de Lazarus, il y a l'insertion de la date et l'heure (ecInsertDateTime), mais elle n'est pas affectée par défaut.

Pour l'affecter à une combinaison de touches (par exemple Ctrl+Alt+A):
Outils -> Options -> Éditeur -> Assignation des touches

Puis:
Commandes d'édition de texte -> Insérer la date et l'heure

Bouton Éditer -> Touche (ou séquence de 2 touches):

Cocher Alt, Ctrl et indiquer A

OK - L'affectation devrait alors apparaître dans le treeview: Insérer la date et l'heure [Ctrl+Alt+A]

OK à nouveau.

Bonjour

Merci, FChrisF, c'est génial, les options donnent beaucoup de possibilités :resolu: