procedure TForm1.Timer1Timer(Sender: TObject); begin if Label1.Visible = true then begin Label1.Visible := false; label2.Visible := false; end else begin Label1.Visible := true; label2.Visible := true; end end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Visible := not Label1.Visible; Label2.Visible := Label1.Visible; end;