Avec ce code je ne devrais pas sortir de edit1 sans que n'y soit écrit quelque chose. Mais cela ne fonctionne pas. Je demande s'il y aurait quelqu'un parmi vous qui pourrait m'aider ? Je remercie d'avance toute aide possible. Merci |
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 procedure TForm1.Edit1Enter(Sender: TObject); begin if edit1.text='' then edit1.setfocus end; procedure TForm1.Edit2Enter(Sender: TObject); begin edit2.Text:=edit1.text; end;
Partager