Bonjour encore alors voilà, j'ai une BomboBox et j'ai des menus dedans :
Voilà et moi je voudrais que, quand on clique sur mètre, il y ait la form2 qui s'ouvre; j'espère que vous pouvez me le dire. MerciCode:
1
2 mètre mètre carré
Version imprimable
Bonjour encore alors voilà, j'ai une BomboBox et j'ai des menus dedans :
Voilà et moi je voudrais que, quand on clique sur mètre, il y ait la form2 qui s'ouvre; j'espère que vous pouvez me le dire. MerciCode:
1
2 mètre mètre carré
Il faut mettre ton code dans l'évenement "OnChange" de la combobox.
Aprés il te suffit de te servir de la propriété "Text" ou "itemindex" pour savoir quel élément à été sélectionner.
Je suppose que c'est en mid que tu veux faire ça.
Alors va sur la combobox, sur la propriété et sur items, clique dessus, mets ton texte.
Après, va sur evénements et va sur onchange, clique dessus et mets le code là
Code:
1
2
3
4
5
6
7 procedure TForm1.ComboBox1Change(Sender: TObject); begin if Combobox1.Text='mètre' then begin Form2:=TForm2.Create(application) end; end;
Super, c'est bon ça marche ! Merrci mais j'ai un peu modifié le code car c'était ça qu'il me fallait :
Enfin depuis très lontemps quelqu'un qui m'a aidé. Merci !!Code:
1
2
3
4
5
6
7
8
9
10
11
12 procedure TForm1.ComboBox1Change(Sender: TObject); begin if Combobox1.Text='mètre' then begin Form2 := TForm2.Create(Self); Form2.ParentWindow := Self.Handle; Form2.WindowState := wsMaximized; Form2.Show; end; end;