Discussion :

[trautmann]

Je veux utiliser une listbox et récupérer dans une chaine la valeur sélectionnée par un click de la souris.

Simple comme problème, mais que mettre après le : ch1:= ???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm1.listboxClick(Sender: TObject);
var
  ch1: string;
 
begin
     ch1:=listbox.;
     writeln(ch1);
end;

je viens de découvrir la touche F1, mais 2h plus tard j'en suis toujours à mon ???

Avis aux Gentils "Aideurs"...

[JoseF]

Bonjour,

Mettez un Tedit plutôt que Write ... (qui va écrire où ?)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TForm1.ListBox1Click(Sender: TObject);
          var nb:integer;
begin
          nb:=listbox1.itemindex;
          edit1.text:=listbox1.items[nb];
end;

pour avoir l'aide tapez dans la prodédure listbox1. sans faire "Entrée" et attendez..

c'est valable pour tous les objets.

Bonne journée