emirej
Messages postés90Date d'inscriptionmercredi 14 mars 2007StatutMembreDernière intervention31 mai 2009
-
8 janv. 2009 à 18:29
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 2022
-
8 janv. 2009 à 22:42
Bonjour un tous, j'essaye de maitriser les ComboBox mais pas évident, en effet m'ont problème m'empêche de créer l'exécutable =\
Je possède une form, dans cette form j'y ai placé un bouton que j'ai appelé " Generer le texte ", j'ai placé également un Edit qui va me servir a afficher le texte a l'intérieur, enfin j'ai placé un ComboBox avec 2 messages dans celui-ci ( un qui s'apelle " A " l'autre s'apelle " Atest ".
J'aimerais en effet que quand l'utilisateur choisis le message du combobox et quand il clique sur " generer le texte " il m'affiche le texte dans l'Edit. Voici mon code !
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(Handle,nil,'http://www.opensc.ws',nil,nil,SW_SHOWNORMAL);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ShellExecute(Handle,nil,'http://www.aspack7.com',nil,nil,SW_SHOWNORMAL);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
ShellExecute(Handle,nil,'http://www.unskilled-gaming.com',nil,nil,SW_SHOWNORMAL);
end;
procedure TForm1.Button5Click(Sender: TObject);
If Form1.ComboBox1.Items:='A'
then begin
Edit1.Text:='TestMessage';
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
ShellExecute(Handle,nil,'http://synsecurity.net',nil,nil,SW_SHOWNORMAL);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;
end;
end.
Voilà, cependant ça ne fonctionne pas =\ Voici pour moi ce code qui n'est pas bon
procedure TForm1.Button5Click(Sender: TObject);
If Form1.ComboBox1.Items:='A'
then begin
Edit1.Text:='TestMessage';
end;
En gros si le combobox est placé sur "A" le message ' TestMessage' doit s'afficher dans l'Edit1
Voici également une photo :
http://img155.imageshack.us/my.php?image=problemepa4.png Donc en gros comment faire pour que une fois le ComboBox selectioné sur " A" et après avoir cliquer sur le bouton fasse apparaitre le message "TestMessage" dans l'Edit svp :)