Procedure avec un TComponent
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:
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.
