Discussion :

[sematimo]

Bonjour
TTimer ne semble plus marcher ou je ne suis pas bien réveillé...
Ce simple code avec Timer1Timer déclarer dans OnTimer ne fonctionne pas.

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
  unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
  i:integer;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   timer1.Interval:=1000;
  timer1.Enabled:=true;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(i);
  edit1.Text:=inttostr(i);
end;
 
end.

[thewolf]

Bonjour.

Chez moi, cela fonctionne parfaitement !!?

[sematimo]

chez moi ça ne fonctionne toujours pas.
J'ai recréer l'edi mais toujours rien.
j'ai la version 2.0.12 et fpc 3.2.0
si j'ai un showmessage sur la première ligne de la procédure Timer1StartTimer, le message ne s'affiche pas.
onstart semble ne pas se déclencher.

[jurassic pork]

hello,
Quel O.S (windows ? linux ? mac OSx ? Dos ? )
Ami calmant, J.P

[Guesset]

Bonjour,

Peut-être est-ce le TEdit qui n'est pas bien paramétré.

J'essaierais au moins de passer en mode debug, de mettre un point d'arrêt dans l'événement Timer et de regarder si il y passe. Si oui le pb n'est pas le TTimer;

Salutations

[sematimo]

J'ai installé et désinstallé plusieurs paquets ces jours ci pour les tester.
J'ai réinstallé lazarus et ça focntionne à nouveau.
mystère...