Compléter automatiquement une ligne dans une Combobox

var
LastKey:Word;
...

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;Sh if t: TSh if tState);
begin
LastKey:=Key;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
Var
Srch : String;
ix : Integer;

Begin
Srch := combobox1.Text;
if LastKey = $08 then
Begin
LastKey := 0;
Exit;
end;
LastKey := 0;
ix := combobox1.Perform(CB_FINDSTRING,-1,LongInt(PChar(Srch)));
if ix > CB_ERR then
Begin
combobox1.ItemIndex := ix;
combobox1.SelStart := Length(Srch);
combobox1.SelLength := (Length(combobox1.Text) - Length(Srch));
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour26/05/2003
VisualisationVu 1413 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Objet
Auteur de l'article
arachnosoft arachnosoft
connecté le 02/11/2011
1 articles dans la section
Contacter l'auteur