OnClick sur un bouton créé dynamiquement
Bonjour à tous,
J'ai un petit souci avec le OnClick sur des boutons créé dynamiquement.
Je crée toute une série de bouton dynamiquement à la création de la fiche et j'aimerai que quand je clique sur un de ces bouton, la valeur caption de ce bouton s'inscrive dans le caption de ma fiche, je sais, c'est certainement bête comme chou, mais je ne trouve pas.
Quelqu'un pourrait-il m'aider
Voici mon code
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
|
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
btn1: TButton;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i: shortint;
position: integer;
valeur: shortint;
begin
position:= 8;
valeur:= 65;
for i:= 0 to 26 - 1 do
begin
btn1:= TButton.Create(Self);
btn1.Parent:= Self;
btn1.Left:= position;
btn1.Top:= 8;
btn1.Width:= 25;
btn1.Caption:= chr(valeur);
position:= btn1.Left + 30;
valeur:= valeur + 1;
end;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
Caption:= (Sender as TButton).Caption;
end;
end. |
Merci d'avance
Jeankiki