Discussion :

[winow]

Bonjour
J'ai recherché dans le forum mais sans succès,
J'aimerai dans un Edit que dès que le nombre de caractère arrive a 4 le focus pointe vers un deuxième Edit,
Sous BCB6 on faisait comme cela:

Code :

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

1
2
3
4
5
 
if(Edit1->Text->Length==4)
{
Edit2->SetFocus;
}

Sous Lazarus il y a rien après Edit.Text
Comment arriver a Edit.Text.Length==4

Merci A+

[batyann811]

Code :

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

1
2
 
if Length(Edit1.Text) = 4 then

[winow]

Merci et une fois de plus batyann811, c'est toi qui me sauve

je travailler sur ceci, j'en étais loin vu le code que tu ma donné:

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm.Edit1Change(Sender: TObject);
   var nb : Integer;
 
begin
       nb:=4;
  if(Edit1.Text < nb) then
     Edit2.SetFocus;
end;

Merci mille fois batyann811