[Lazarus] SetFocus ne fonctionne pas

Code:

---

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 |

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

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

Code:

---

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

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

exemple

Code:

---

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:

---

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

Bonjour,

Essaye cela !

Code:

---

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

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é.