recup ce ki a ete selectione ds un combobox
J'ai essayé , j'ai cherché et j'ai pas trouvé  
 
alors voila :  
 
en fait j'ai une combobox et quand lutilisateur selectione un truc de ma combo.je voudrai qu'il assigne ce qui a ete selectioné a une variable
 
 
ma combo s'appelle liste donc ça donnerai :  
 
procedure TForm1.listeChange(Sender: TObject);
var
toto:string;
begin
toto:=liste.lecaptiondutrucselectioné;
showmessage(toto);//ça s'est pour testé que ça marche ...
end;
 
 
Pilou
 
 
PS: Oui antp .. je ferait moins de topic  je renomerai celui la

[jfdsdjhfuetppo]--Message édité par Pilou2001 le 12-05-2002 à 12:22:55--[/jfdsdjhfuetppo]

[SDF]Poire a écrit a écrit :

 
C'est clair que là faudrait penser à utiliser l'aide
Y a maximum 20 propriétés, ça fait pas de mal lire leur description.

Je trouve pas .. en plus c tout en anglais
si au moins delphi etait en fr
 
allez dites moi svp ...  
svp svp svp svp svp svp
 
j'esseairai de poser des kestions moins connes que certaines que j'ai posé ..

Et ben fallait l'avoir en fr  

Y a des versions en Français de Delphi...
Sinon faut apprendre l'anglais.
 
Allez je te le donne:
 
if Liste.ItemIndex <> -1 then
  toto := Liste.Items[Liste.ItemIndex]
else
  toto := '';
 
ou
 
with Liste do
  if ItemIndex <> -1 then
    toto := Items[ItemIndex]
  else
    toto := '';
 
ou encore plus simple:
 
toto := List.Text;
 
Même sans l'aide t'aurais pu trouver

antp a écrit a écrit : Y a des versions en Français de Delphi... Sinon faut apprendre l'anglais.   Allez je te le donne:   if Liste.ItemIndex <> -1 then   toto := Liste.Items[Liste.ItemIndex] else   toto := '';   ou   with Liste do   if ItemIndex <> -1 then     toto := Items[ItemIndex]   else     toto := '';   ou encore plus simple:   toto := List.Text;   Même sans l'aide t'aurais pu trouver

T trop gentil Antp...

Merci Beaucoup!!!!

[SDF]Poire a écrit a écrit :   T trop gentil Antp...

 
Ouais je sais

http://forum.hardware.fr/forum1.ph [...] aterange=2
 
Put'1, il l'a fait son topic à lui

Bon ça je suppose que c pas dans le F1 ...
 
bon voila ...
Toujours pour mon programme de pendu ... c pour les traits en desous des lettres ça  
 
j'ai une dizaine de trait apellés t1 t2 t3 t4 .... t10
et je voudrait les faire apparaitre come ça( je c que c faux , je demande ce kil faut mettre a la place et si c possible):
 
while a<=length(mot) do  
begin
T(a).visible:=true;
a = a + 1;
end;  
 
c juste ça ..  
a est integer qui commence de  1
 
 
je sent que je v encore me prendre le panno f1 en pleine tronche mais bon ... Qui ne tente rien n'a rien  
 
MErci

Tu peux pas faire ça directement...

Whaow thunder je pensais pas que j'en avait fait autant lol  
remarque mes kestions sont de moins en moins conne non ?  
 
j'ai mis l'adresse dans mes favoris  
 
J'ai bien fait de me creer un topic lol

Arf bon bha tant pis et moi qui essayait d'avoir un code PROPRE  

Bah tu peux le faire de manière détournée avec Form1.Components[], Form1.ComponentCount, etc... mais tu vas peut-être trouvé ça compliqué

procedure affichetrait;
begin
if (form1.taillemot<=2) XOR (form1.taillemot>10) then
  begin
  showmessage('Le mot est trop petit , trop grand ou vous    n''avez pas entré de mot!';
  exit;
  end;
form1.edit1.Visible := false;
form1.command1.Visible := false;
form1.Label1.Visible := false;
form1.liste.Visible := true;
form1.checklettre.Visible := true;
form1.T1.Visible := true;
form1.T2.Visible := true;
form1.T3.Visible := true;
if form1.taillemot = 3 then exit;
form1.T4.Visible := true;
if form1.taillemot = 4 then exit;
form1.T5.Visible := true;
if form1.taillemot = 5 then exit;
form1.T6.Visible := true;
if form1.taillemot = 6 then exit;
form1.T7.Visible := true;
if form1.taillemot = 7 then exit;
form1.T8.Visible := true;
if form1.taillemot = 8 then exit;
form1.T9.Visible := true;
if form1.taillemot = 9 then exit;
form1.T10.Visible := true;
end;
 
J'ai fait comme ça .. c le plus propre que j'arrive a faire

Voila c ma derniere question pour mon projet pendu
il touche a sa fin la ... et ça marche ...
 
bon en fait le probleme la , c que je voudrai vider une  combobox qui se nomme liste ...
 
j'ai fait ça :  
 
begin
a:=1;
while a<((form1.liste.Items.count)+1) do
begin
form1.Liste.Items.delete(0);
a:=a+1;
end;
end;
 
le probleme ce ke ça n'efface pas tous les items .. ça en laisse dans les 5 ...
 
le code total de la procedure .. est censé vidé la combobox et la reremplir ... :
 
procedure alphabet;
var
a:byte;
begin
a:=1;
while a<((form1.liste.Items.count)+1) do
begin
form1.Liste.Items.delete(0);
a:=a+1;
end;
form1.liste.items.add('a';
form1.liste.items.add('b';
form1.liste.items.add('c';
form1.liste.items.add('d';
form1.liste.items.add('e';
form1.liste.items.add('f';
form1.liste.items.add('g';
form1.liste.items.add('h';
form1.liste.items.add('i';
form1.liste.items.add('j';
form1.liste.items.add('k';
form1.liste.items.add('l';
form1.liste.items.add('m';
form1.liste.items.add('n';
form1.liste.items.add('o';
form1.liste.items.add('p';
form1.liste.items.add('q';
form1.liste.items.add('r';
form1.liste.items.add('s';
form1.liste.items.add('t';
form1.liste.items.add('u';
form1.liste.items.add('v';
form1.liste.items.add('w';
form1.liste.items.add('x';
form1.liste.items.add('y';
form1.liste.items.add('z';
end;
 
Voila
where is da problem ???
 
Merci
 
Ps: j'ai mis la fin du titre de mon sujet en anglais parceq'en fr ça ne rentré pas !

[jfdsdjhfuetppo]--Message édité par Pilou2001 le 11-05-2002 à 23:28:45--[/jfdsdjhfuetppo]

Ç'aurait dû être :
 
while Form1.Liste.Items.Count > 0 do
begin
  Form1.Liste.Items.Delete(0);
end;
 
Mais il y a encore plus simple :
 
Form1.Liste.Items.Clear;
 

Merci

voila  
j'ai fini mon soft , enfin la beta .
C moche mais ça marche
 
si vous voulez vous foutre de ma guele ou si vous voulez juste voir mon programme:
 
--> http://membres.lycos.fr/megaromz/delphi/Pendu.exe
 
 
pour plus tard .. il y aura un espece de random qui ira chercher au hasard un mot dans un txt  
 
Merci beaucoup a tous ceux qui m'ont aidé et particulierement a antp ( bha oui c lui qui m'a aidé le plus )  
 
Pilou

Antp , m'en veux pas , mais ce post la ...
c pour que le topic il s'enflamme  
c le 20 eme post  
 
 
 
Pilou

Pilou2001 a écrit a écrit : voila   j'ai fini mon soft , enfin la beta . C moche mais ça marche   si vous voulez vous foutre de ma guele ou si vous voulez juste voir mon programme:   --> http://membres.lycos.fr/megaromz/delphi/Pendu.exe     pour plus tard .. il y aura un espece de random qui ira chercher au hasard un mot dans un txt     Merci beaucoup a tous ceux qui m'ont aidé et particulierement a antp ( bha oui c lui qui m'a aidé le plus )     Pilou

 
Désolé mais y'a une couille pour les graphismes !!!
 

 
Tu as utilisé une image pour les barres obliques ?
Mais tu travaillais sur le canvas de la Form ou sur une TPaintBox normalement ?

et le menu avec les lettres ça le fait pas  

Je@nb a écrit a écrit : et le menu avec les lettres ça le fait pas

 
Ouais, utilise des TLabel à la place ...

C'est le début aussi hein, quand on apprend à programmer on sait pas faire directement quelque chose de parfait (d'ailleurs on ne sait jamais faire directement quelque chose de parfait )

antp a écrit a écrit : C'est le début aussi hein, quand on apprend à programmer on sait pas faire directement quelque chose de parfait (d'ailleurs on ne sait jamais faire directement quelque chose de parfait )

 
C'est clair, au moins comme ça y'a toujours quelque chose à améliorer !!!  

Perso c'est Thander, et pas thunder, mais bon je vais pas chipoter  
Sinon, voici des liens très intéressants pour Delphi:
 
http://fbeaulieu.free.fr/ (cours sur Delphi, excellent )
http://phidels.com/php/index.php3 (cours et sources, très intéressant)
http://perso.wanadoo.fr/fobec/delphi_index.htm (sources très intéressantes )
http://www.developpez.com/delphi/ (on ne le présente plus)
 
et l'incontournable google  
http://www.google.fr
http://groups.google.fr
 
et enfin le top, le topic de [sdf]poire  
 
http://forum.hardware.fr/forum2.ph [...] ic=&trash=
 
 

[jfdsdjhfuetppo]--Message édité par Thander le 12-05-2002 à 11:13:48--[/jfdsdjhfuetppo]

 
oui j'ai utilisé des image pour les barres obliques ...
Sur mon PC , elle etaient casiment de la meme couleur que le form  
je v essayé paintbox.. JE supposeque ça permer de dessiner ce qu'on veut dans un carré ou un truc du genre ...
 
Sinon le canvas de la form je c pas trop ce ke c ... Les barres droites c'est des Tshape et les oblikes des images...
 
Pilou

QQ pourrait m'expliqué comment foncitone la paintbox ( pour dessiner dedans des barres obliques )
 
Pilou