Procedure avec un TComponent

**xenos** · 29/12/2005, 21h10

Bonjour,

Je développe un logiciel avec Delphi 2005, sous WinXP.

J'aimerais pouvoir créer une procédure qui utilise un label différent suivant le bouton sur lequel on clique. Le label que j'utilise dans ce code, s'appelle LabelBe. J'ai aussi rajouté la variable LabelCap (Label Caption) dans ma procédure.

Cependant, lorsque j'exécute ce code, c'est la Form4 qui se met en rouge et non pas le labelBe ...

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
[...]
  Private
    { Private declarations }
    Procedure Status(LabelCap: TComponent);
 
[...]
 
Procedure TForm4.Status(LabelCap: Tcomponent);
begin
  If Pos('FREE', Memo1.Text) <> 0 Then
    begin
      With LabelCap do
        Caption := 'Libre';
        Font.Color := clGreen;
    end;
[...]
end;
 
Procedure TForm4.Button1Click(Sender: TObject);
begin
[...]
  Form4.Status(Labelbe);
[...]
end;

J'ai essayé de tourner ça dans tous les sens, mais j'vois pas comment j'peux faire, pour qu'il comprenne qu'il faut changer les propriétés du label; LabelBe et non pas la Form4!!!

D'avance merci pour vos suggestions.

**sjrd** · 29/12/2005, 21h48

Déclare LabelCap comme TLabel, car il n'y a pas de propriété Font ni Caption à un TComponent, donc il cherche dans Self comme il n'a pas trouvé dans le With.

Code :

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