Bonjour,

Quelqu'un pourrait-il me dire comment faire pour protéger un texte d'un combobox ( le même style que readonly d'un edit)

merci d'avance

Salut,
Essaye comme ceci :

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key in ['a'..'z','A'..'Z'] Then Key := #0;
end;

@+
Cirec

salut,
plus radical
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
Key := #0;
end;
attention toutefois car dans les 2 solutions tu perds l'autocomplete et un conseil mets l'autodropdown à true.
@+
jlen

Merci les amis...

Ah ben voilà encore une bonne chose d'appris

Merci jmp77

@+
Cirec

oui j'ai eu du mal à la retrouver dans la propriete style
@+
jlen

Bonjour,

Quelqu'un pourrait-il me dire comment faire pour déplaçer le curseur d'un champ de saisie vers un autre ( edit ou combobox peut importe ) ???


procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
  t[1,1]:=ComboBox1.text;
  end;
end;

il me manque quelque chose mais ché pas quoi !!!     merci