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 : Sélectionner tout - Visualiser dans une fenêtre à part
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