Discussion :

[Jeankiki]

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

[qi130]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.btn1Click(Sender: TObject);
begin
  Form1.Caption:= (Sender as TButton).Caption;
end;

[Jeankiki]

J'ai déjà essayé mais ça ne fonctionne pas non plus, j'ai aussi essayé avec Self vu que Self est égale à Form1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Self.Caption:= (Sender as TButton).Caption

ou aussi avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Self.Caption:= btn1.Caption;

mais rien à faire ça ne fonctionne pas, as-tu une autre idée

[flash_math]

Il faut surtout que tu rajoute cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
btn1.OnClick:=btn1Click;

Ainsi tu as :

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
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);
    btn1.Onclick:=btn1Click;
    position:= btn1.Left + 30;
    valeur:= valeur + 1;
  end;
 
end;

[Jeankiki]

Merci flash_math, j'avais complètement oublié, le problème est résolu