une à la fois

Version imprimable

11/09/2024, 10h45
katassili

une à la fois

Bonjour à tous
S'il vous plaît
j'ai une question que j'aimerais poser si possible.
j'ai 2 labels
Je veux en faire apparaître une à la fois, c'est-à-dire que lorsque la première apparaît
la seconde disparaît, et après une période d'environ 4 secondes, l'autre apparaît.Une à la fois
et cela se répète.
et merci

Utilise un TTimer, à toi de régler le temps du Timer via sa propriété interval

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
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    procedure Timer1Timer(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Visible := Not Label1.visible;
Label2.Visible:=not label1.visible;
end;

11/09/2024, 11h51
katassili

merci

je vous remercie pour votre pressieuse aide je comme avec delphi et avec votre présences j’apprends toujours
merci
11/09/2024, 12h08
der§en

Une bonne façon de remercier SergioMaster pour l’aide qu’il t’a apporté, c’est de cliquer sur le « pouce en haut » ;)