salut les amis

Dans mon programme je creer un TFLATBUTON dynamique et je veux d'ajouter la procedure ONCLICK comme le code suivant
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
 
procedure TForm1.CREER(Sender: TObject);
begin
for I := 1 to JOURS do
begin
TB:=TFlatButton.Create(Self);
with TB do
TB.Parent:= XiPanel2;
TB.Tag:= 2;
TB.Name := 'Button' +'_'+ inttostr(I);
TB.OnClick := ck;
TB.Color:= clMoneyGreen;
TB.Width := 20;
TB.Height := 20;
TB.Left := X + XiPanel2.Width - 37;
TB.Top := Y + 9;
X:= X- 24;
end;
end;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
procedure TForm1.CK(Sender: TObject);
begin
ShowMessage(TComponent(Sender).Name);
end;
mais ca marche pas et j'essaye de suivre les etapes dans le sujet
http://www.developpez.net/forums/sho...84#post1448284
aussi j'arrive pas

merci d'avance