Animation d’un texte

 

Dans une fiche placez ces composants

Un timer, un edit , 3 labels

Label 1 pour caption : Bousselam, Sétif

Label 2 pour caption Vitesse ;

Label3 pour caption nobleux@live.fr

Double cliquer sur edit1 et écrire ces événements :

procedure TForm1.Edit1Change(Sender: TObject);

begin

Timer1.Interval:=strtoint(edit1.text);

end;

Double cliquer sur timer 1  et écrire ces événements :

procedure TForm1.Timer1Timer(Sender: TObject);

begin

label1.Left:=label1.Left-2;

if label1.Left=-304 then

label1.Left:=120;

end;

dans l’événement  « Edit1KeyPress » à l’inspecteur d’objet dans l’onglet evenement  double cliquer et écrire comme suite

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9', #8]) then

  begin

    Key := #0;

    Beep;

  end;

end;

double

Double cliquer sur label3 et écrire ces événements :

procedure TForm1.Label2Click(Sender: TObject);

begin

 ShellExecute (handle,'Open',  'mailto:djezar@otmail?body=Taper votre message ici','',

                     '',SW_SHOWNORMAL);

end;

dans la partie dessus de  la partie uses  n’oubliez pas d’ajouter     ShellApi  comme indique la la figure suivante :