Timer enablen

[Reap3r]

Hi Leute!

Ich habe ein genz einfaches Problem.

Undzwar habe ich in einem Programm mehrere Timer.
Diese habe ich im Objektinspektor auf nicht enabled gestellt.
Wenn ich nun einen Button drücke sollen sie enabled werden!
Ich dachte immer, das ginge, doch es funktioniert nich!

Also im Button steht dann:

Form3.timer1.enabled:= true; Was mache ich falsch?

[turboPASCAL]

Ja, muss aber was anderes sein.

[Klaus01]

Hi,

was funktioniert denn nicht?
Läuft Dein Timer nicht los?
Gibt der Compiler eine Fehlermeldung aus?

Grüße
Klaus

[Reap3r]

Achso ja sry hab ich vergessen^^

Der Timer wird garnicht erst aktiviert!

[Klaus01]

Zitat von Reap3r:

Achso ja sry hab ich vergessen^^

Der Timer wird garnicht erst aktiviert!

Woran merkst Du das?

Zeige doch mal den Code der ausgeführt werden soll
wenn der Timer aktiviert ist.
Wie groß ist das Intervall?

Grüße
Klaus

[Luckie]

Wenn der Code in einer Methode des selben Formulares steht, lass mal den Formularbezeicher weg.

[Reap3r]

Der code sieht so aus:

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject);
begin
  if form3.L1.Visible = true
  then begin form3.L1.visible := false;
  form3.Image1.Visible:= false;
  form3.Image2.Visible:= true;
  form3.L2.Visible:= true;
  end;
end;

auf form3 ist ein Image und ein Label zu sehen!(Image1/L1)
Diese sind auf visible:= true eingestellt.
Der Timer soll diese nun wenn zu sehen visible:= false schalten
und ein anderes Image und ein anderes Label visible:= true schalten.(Image2/L2).

Das intervall des Timers ist auf 9 sekunden festgelegt, damit das erste Image bzw. Label 9 Sekunden zu sehen ist,
und dann umgeschaltet wird.

[Klaus01]

.. ändert sich etwas wenn Du es so umschreibst?

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject); 
begin 
  if L1.Visible then
    begin 
      L1.visible := false; 
      Image1.Visible:= false; 
      Image2.Visible:= true; 
      L2.Visible:= true; 
  end; 
end;

Ansonsten stellen mal Deine Button.click Methode
hier ein.

Grüße
Klaus

[p80286]

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject); 
begin 
  if L1.Visible then 
    begin 
      L1.visible := false; 
      Image1.Visible:= false; 
      Image2.Visible:= true; 
      L2.Visible:= true;
    
  end;
  application.processmessages;  // <<<<<<<< Erweitern!! 
end;

man muß dem Programm auch die Chance geben Änderungen anzuzeigen.

Und mit F4 (Debugger)in die Timer-Methode gehen ob sie überhaupt aufgerufen wird.

Gruß
K-H

[Reap3r]

Was Bringt mir application.processmessages;?
bzw. wie benutze ich es?

Und Klaus01 das verändert leider nichts!