petite question sur les "label"

newixz · 08/09/2006, 23h33

bonjour a tous

je debute dans le delphi et j'aurais une petite question
je souhaiterais creer un petite prog qui me permette de controler un lumiere.
j'utilise deux bouttons et la fonction label.
cependant quand je clique sur eteindre le label passe a eteind ou vice versa mais quand je clique sur l'autres il ne se passe plus rien

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    LabelInformation: TLabel;
    allume: TButton;
    eteind: TButton;
    procedure eteindClick(Sender: TObject);
    procedure allumeClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.eteindClick(Sender: TObject);
begin
  LabelInformation.Caption:='Eteind';
end;
 
procedure TForm1.allumeClick(Sender: TObject);
begin
  LabelInformation.Caption:='allume';
end;
 
end.

merci a vous pour votre aide

**Jipété** · 09/09/2006, 00h17

cependant quand je clique sur eteindre le label passe a eteind ou vice versa mais quand je clique sur l'autres il ne se passe plus rien

Sur quel autre ?

Parce que le code posté fonctionne parfaitement : quand je clique sur "allume" le label affiche "allume", et quand je clique sur "eteind" le label affiche "eteind".
Il est où le problème ?
--
jp

**lapec_and_cie** · 09/09/2006, 00h22

Salut newixz,

A quoi servent tes labels Label1, et Label2????

A plus...

newixz · 09/09/2006, 00h55

deja merci pour vos reponse rapide

pour jipété
je viens de rajouté un boutton et maintenant ca marche je sais pas peut etre ma becane....

pour lapec and cie
je debute dans le delphi ca fait 15min lol alors j'utilise label pour le texte.

encore une chose svp je ne sais pas ou placé windowsxp.res pour avoir le theme
quand je le met dans \lib\ ca ne change rien

merci

si ca vous interresse voici mon projet

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    LabelInformation: TLabel;
    allume: TButton;
    eteind: TButton;
    Label3: TLabel;
    LabelInformation2: TLabel;
    arret: TButton;
    marche: TButton;
    Label4: TLabel;
    labelTemperature: TLabel;
    Label5: TLabel;
    Courbe: TButton;
    Label6: TLabel;
    Label7: TLabel;
    LabelPH: TLabel;
    Ph: TButton;
    Image2: TImage;
    procedure eteindClick(Sender: TObject);
    procedure allumeClick(Sender: TObject);
    procedure marcheClick(Sender: TObject);
    procedure arretClick(Sender: TObject);
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.eteindClick(Sender: TObject);
begin
  LabelInformation.Caption:='Eteind';
end;
 
procedure TForm1.allumeClick(Sender: TObject);
begin
  LabelInformation.Caption:='allume';
end;
 
procedure TForm1.marcheClick(Sender: TObject);
begin
  LabelInformation2.Caption:='marche';
end;
 
procedure TForm1.arretClick(Sender: TObject);
begin
  LabelInformation2.Caption:='arret';
end;
 
end.