Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Hilfe mit Timer! (https://www.delphipraxis.net/48219-hilfe-mit-timer.html)

Grolle 22. Jun 2005 12:28


Hilfe mit Timer!
 
Ich krieg die Krise!
Ich lese auf Buttton12Click Daten aus einer Stringliste.
Jetzt wird über ein Image ein Status angezeigt.

Delphi-Quellcode:
if (e1 = '0') and (ea1 <> ':') then
  begin
    ImageList2.GetIcon(0,Image1.Picture.Icon);
    Button7.Caption := 'anmelden';
    Timer3.Enabled := true;                    //Image blinkt denn im OnTimer steht: Image1.Visible := (not Image1.Visible);
  end;
Delphi-Quellcode:
if e1 = '1' then
  begin
    Timer3.Enabled := false;
    ImageList2.GetIcon(0,Image1.Picture.Icon); //Image wird einfach nur angezeigt
    Button7.Caption := 'abmelden';
  end;
Das klappt auch ganz gut, aber nur beim ersten mal. :?
Wenn sich also der Status zur Laufzeit ändert, und über Button12 aktualisiert
wird, kann es sein, das die zweite Zuweisung nicht funktioniert (Image wird nicht
angezeigt). Ich weiß, dass das irgendwie an dem Timer liegt, aber ich find keine
Lösung!

MrSpock 22. Jun 2005 12:39

Re: Hilfe mit Timer!
 
Hallo Grolle,

wenn du den Timer mit dem oben stehenden Code aktiviert hast, wird er auch irgendwo wieder deaktiviert?

Grolle 22. Jun 2005 12:42

Re: Hilfe mit Timer!
 
Ja wird er (s. o.). Habe ich gerade nicht korrekt rüberkopiert

mumu 22. Jun 2005 12:45

Re: Hilfe mit Timer!
 
Delphi-Quellcode:
if e1 = '1' then
  begin
    Timer3.Enabled := false;
    ImageList2.GetIcon(0,Image1.Picture.Icon); //Image wird einfach nur angezeigt
    Button7.Caption := 'abmelden';

    Image1.Visible := true;
  end;
du musst ja das image wieder auf visible stellen

Grolle 22. Jun 2005 12:50

Re: Hilfe mit Timer!
 
:roll: Danke!


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:31 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz