Discussion :

[cavaco]

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;

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 |