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 |

[inc002]

D'après moi, il faudrait ajouter que c'est la propriété focus que tu veux passer d'un edit à l'autre. dans al deuxième procédure, c'est le text que tu passe, pas la propriété liée au focus

Amicalement

inc002

[cavaco]

Je ne voudrais pas qu'il saute de edit (perdre le focus)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if edit1.text='' then
                  begin
                      ShowMessage('je suis sem texte et devrais reste sur le cadre em edit1');
                       edit1.setfocus()
                       end;
end;

J'i trouver un collègue sur le forum Lazarus avec le même problème, (Anglais) seulement mon anglais est presque nul, ce qui fait que je suis un peu désespéré.

Pardon pour les quelques fautes et merci pour tout.

http://www.lazarus.freepascal.org/in...wtopic&p=15883

[Clandestino]

OnExit permet de redonner le focus à l'edit lorsque ce dernier le perd via le clavier : TOUCHE TAB

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if edit1.Text ='' then
  edit1.setfocus;
end;

Il ne fonctionne pas si le focus est donné à un autre contrôle avec la souris...
Il faut alors gérer pour chaque contrôle le focus pour le redonner si nécessaire à l'edit1 .

Ainsi si il y a un autre edit et un bouton par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Enter(Sender: TObject);
begin
  if edit1.Text ='' then
  edit1.setfocus;
end;
 
procedure TForm1.Edit2Enter(Sender: TObject);
begin
  if edit1.Text ='' then
  edit1.setfocus;
end;

etc...

Il faut bien entendu vider l'edit1 et lui donner le focus au départ...

Bonne prog

Clandestino

[chris37]

Bonjour,

Essaye cela !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if text='' then 
     LCLIntf.SetFocus((sender as tedit).Handle); 
 
 
//N'oublie pas le uses LCLIntf

Cordialement,

Chris

[cavaco]

bonsoir Chris.
Merci beaucoup pour ton coud de main mais malereusement cela ne foncionne pas.
D'apres se que je me rend compte se code c'est pour win. et moi je suis en se monent a travaillé avec linux a esayé de passer un programe de delphi4 pour lazarus.
Se code oui il foncionne bien ou soit en focus il maintient dans se conponant pendant que le texte ne soit pas le pretendu.
Une fois de plus merci pour ta gentilille aide, même que cela na pas eté le resulta desiré.