OnClick sur un component créé dynamiquement.

salut les amis

Dans mon programme je creer un TFLATBUTON dynamique et je veux d'ajouter la procedure ONCLICK comme le code suivant

Code:

---

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:

---

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

Salut,

A priori ton code semble correct, a part le 'with TB do' qui ne sert à rien.

Est-ce une erreur de compilation ? d'exécution ? Laquelle ?

@+

Citation:

---

Envoyé par Claudius40

Salut,

A priori ton code semble correct, a part le 'with TB do' qui ne sert à rien.

Est-ce une erreur de compilation ? d'exécution ? Laquelle ?

@+

---

alors quand j'utilise le code

Code:

---

1 2	TB.OnClick := ck(sender);

---

j'ai l'erreur suivant
[Error] Unit1.pas(496): Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

et quand j'utilise le code suivant

Code:

---

1 2	TB.OnClick := ck;

---

j'ai l'erreur suivant:
[Error] Unit1.pas(496): Incompatible types: 'method pointer and regular procedure'

voila qu'est ce que j'ai.........

merci

voila je trouve la soulotion
j'ai une erreur de la declaration du procedure comme suivant

Code:

---

1 2 3 4 5

public { Déclarations publiques } end; procedure CK(Sender: TObject);

---

et il faut comme ca

Code:

---

1 2 3 4 5

public procedure CK(Sender: TObject); { Déclarations publiques } end;

---

merci