changer le text a chaque clic

Réponse acceptée !
salut,
sur ta form tu mets une listebox,un edit et un bouton
tu doublecliques sur la propriete items de la liste et tu remplis la liste de ce que tu veux
et  dans l'evenement onclick du bouton tu mets:
procedure TForm1.Button1Click(Sender: TObject);
begin
 if listbox1.itemindex<listbox1.Count-1 then // si on n'est pas à la fin de la liste on avance d'une ligne
 listbox1.itemindex:=listbox1.itemindex+1
 else listbox1.itemindex:=0;//sinon on revient au debut
 edit1.Text:=listbox1.Items[listbox1.itemindex];
end;
si tu ne veux pas que la liste apparaissse tu meux sa propriete visible:=false
voilà
bonne prog
jlen

Réponse acceptée !
ou sinon sans listbox :

INTERFACE

const
NewCaption : array[1..3] of string = ('Hello', 'Ca va ?', 'Ouai bien!');

IMPLEMENTATION

procedure TForm1.Button1Click(sender : tobject);
begin
  if Button1.tag = length(NewCaption)+1 then Button1.Tag := 1;
  Button1.Caption :=  NewCaption[Button1.Tag];
  Button1.Tag := Button1.Tag+1;
end;

Réponse acceptée !
salut tu mets
NewCaption : array[1..3] of string = ('Hello', 'Ca va ?', 'Ouai bien!');
juste avant:
var
  Form1: TForm1;
 çà te chage le texte dans le bouton
@+
bonne prog
jlen