Saisie semi-automatique

Télécharger le projet
Commenter

Description

Un simple code pour imiter le comportement de Netscape ou IE, par exemple vous taper une URL et il vous donne la suite (Si vous y êtes déjà aller).

ATTENTION : KeyUp seulement !

Source / Exemple : 


procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
Var b, c : Integer; a,d : STRING;
begin
//Vérifier tout les éléments
If Key <> 8 Then Begin
        for c:= 0 to ListBox1.Count - 1 do begin;
                a := ListBox1.Items[c];
                d := Edit1.Text;
                b := Edit1.SelStart;
                If LowerCase(Copy(a,1, length(d))) = LowerCase(Copy(d,1, length(d))) Then Begin;
                        Edit1.Text := a;
                        Edit1.SelStart := b;
                        Edit1.SelLength := (Length(Edit1.Text) - b);
                End;
        end;
end;
//Fin
end;
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_max12)