hainlesgens
Messages postés57Date d'inscriptiondimanche 24 décembre 2000StatutMembreDernière intervention10 février 2009
-
27 janv. 2009 à 15:13
Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 2016
-
28 janv. 2009 à 18:09
Bonjours à tous. j'ai réalisé un programme, et je touche à la "fin" avec un f minuscule.
il me reste quelques modifications basiques mettre en place. tel que celle qui me pose actuellement problème.
J'ai dans mon programme, Grisé les instructions des Tedit pour guider l'utilisateur. Et j'y ai mis des trucs Bateau pour changer la couleur du texte quand l'utilisateur clic dessus. (evenement onClick : edit1.font.color := ClDefault)
mais ça ne fonctionne que quand on clic dessus. et il est vrai que certaines personne utilise beaucoup La touche Tabulation pour passer d'une zone à l'autre. et dans le cas de la Tabulation, la couleur reste grise.
J'ai bien pensé à recopier ma petit fonction sur le OnEditing du Tedit, mais ce n'est pas vraiment ce que je veux.
si quelqu'un savais comment je peu faire pour que quand je Tabule le Font. color change. en fait, le nom de l'évènement associé.
Caribensila
Messages postés2527Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention16 octobre 201918 27 janv. 2009 à 18:03
Salut,
Et encore plus ergonomique car touche 'ENTER' = touche 'TAB' !
Le truc de f0xi, plus la propriété KeyPreview de la fiche sur True, et dans l'événement OnKeyPress de la fiche :
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
PostMessage(handle, WM_NEXTDLGCTL, 0, 0);
end;
end;