AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Ampel mit visible=true/false

Ein Thema von Jackel89 · begonnen am 9. Feb 2006 · letzter Beitrag vom 10. Feb 2006
Antwort Antwort
Seite 2 von 2     12
gfjs

Registriert seit: 8. Dez 2005
Ort: Hohenkammer
298 Beiträge
 
Delphi 2006 Professional
 
#11

Re: Ampel mit visible=true/false

  Alt 10. Feb 2006, 04:42
@ Jackel89

Ich bin selber noch Anfänger und habe hier im Büro auch kein Delphi installiert, um auszuprobieren, ob meine Lösung funktioniert. Aber vielleicht ist das eine Überlegung wert:

Button1.Tag := 1; gruen.visible := true; Und in die onClick-Prozedur:

Delphi-Quellcode:
Case Button1.Tag of
  1: begin
       gruen.visible := false;
       gelb.visible := true;
       Button1.Tag := 2;
     end;
  2: begin
      gelb.visible := false;
      rot.visible := true;
      Button1.Tag := 3;
    end;
  3: begin
       gelb.visible := true;
       Butto1.Tag := 4;
     end;
  4: begin
       rot.visible := false;
       gelb.visible := false;
       gruen.visible := true;
       Button1.Tag := 1;
{  5: begin ;-)
      Ampel.kaputt := true;
      SignalbauHuberAnrufen := true;
    end; ;-) }

end;
Probier's einfach mal aus.

mfg gfjs
Mein neues Motto (von "Unbekannt"):
Gewinnen: Wenn Du kannst - Verlieren: Wenn Du musst - Aufgeben: NIE!
  Mit Zitat antworten Zitat
gfjs

Registriert seit: 8. Dez 2005
Ort: Hohenkammer
298 Beiträge
 
Delphi 2006 Professional
 
#12

Re: Ampel mit visible=true/false

  Alt 10. Feb 2006, 04:48
@ Jackel89

Sorry! Habe übersehen, dass Ihr das mit if .. then machen sollt. Du mußt also die Case-Anweisungen auflösen:

if Button1.Tag = 1 then
begin
...
end else

Das Ganze ist natürlich nur Pseudo-Code - ich wollte nur auf die Möglichkeit hinweisen, die Tag-Eigenschaft des Buttons zu verwenden.

mfg gfjs
Mein neues Motto (von "Unbekannt"):
Gewinnen: Wenn Du kannst - Verlieren: Wenn Du musst - Aufgeben: NIE!
  Mit Zitat antworten Zitat
Jackel89

Registriert seit: 9. Feb 2006
6 Beiträge
 
#13

Re: Ampel mit visible=true/false

  Alt 10. Feb 2006, 19:22
jup klar danke

@gfjs: sieht auf jeden fall interessant aus - werd ich auch mal ausprobiern thx!
(besonders 5 ^^)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:48 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