4 Fälle scrollen in Delphi 6

[RedRockeR]

ich hab da ein problem... ich soll eine kreuzung mit 4 ampeln darstellen, bei denen der rot-grün-wechsel per scrollbar erfolgen soll. wie kann ich das programmieren? ich brauche 4 fälle(4 phasen). kann mir jemand helfen?

 

[Patrick Kamin]

-

Hallo RedRocker!
Du erstellst dir einen Aufzählungstyp, der die vier Phasen darstellt. Dann noch vier Variablen, die du mit diesem Aufzählungstyp deklarierst. Jeweils zwei haben dann den gleichen Status, welchen du dann über einen Button/Scrollbar oder was auch immer, ändern kannst.

type
  TAmpel = (Rot, RotGelb, Gelb, Gruen);

Das musst du dann einfach weiter durchspinnen.

 

[RedRockeR]

hmm... ich werd mal gucken, was ich daraus machen kann...

aber danke schon mal