Discussion :

[aliwassem]

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

[Cl@udius]

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 ?

@+

[aliwassem]

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 :

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

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 :

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

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

[aliwassem]

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

Code :

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

1
2
3
4
5
 
public
    { Déclarations publiques }
  end;
  procedure CK(Sender: TObject);

et il faut comme ca

Code :

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

1
2
3
4
5
 
public
  procedure CK(Sender: TObject);
    { Déclarations publiques }
  end;

merci