Bonjour à tous...Voilà mon probleme : Sur une form, je crée des TButton dynamiquement, ainsi que des TPanel en invisible. J'ai mis l'évènement 'Onclick' sur chaque boutton, le problème est comment faire pour que le TButton soit reconnu ? Plus précisement, je voudrais faire que si l'on clique sur le premier TButton (créer dynamiquement), le TPanel correspondant (même tag, même caption) devient visible. Jusqu'a présent, je peux cliquer sur n'importe quel bouton, c'est le dernier créer qui prend le focus ! Je met le bout de mon code :
Code :
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- boutton := TButton.Create(form1); 'Creation du boutton
- with boutton do begin
- parent := form1;
- top := 110;
- left := 72+(75*x);
- tag := x;
- caption := 'Page '+inttostr(x);
- end;
- panel := TPanel.Create(form1); 'creation du panel
- with panel do begin
- parent := form1;
- top := 150;
- left := 72;
- tag := x;
- caption := 'page '+inttostr(x);
- panel.Visible := false;
- end;
- boutton.OnClick := bouttonclick; 'Evenement onclick du bouton créer
- x:=x+1;
- end;
- procedure TForm1.bouttonclick(Sender: TObject); 'Procedure du Onclick
- var
- fiche : string;
- begin
- fiche := TButton(self).Caption; ' caption du bouton dans variable Fiche
- label1.Caption := 'C''est le boutton '+boutton.Caption;
- panel.Visible := true;
- end;
|
Merci de votre réponse...