blikk info infothek forum galerie sitemap

Lösung 2 für Timer

 anfang zurueck weiter ende nach oben

Spaltentext ... 		  unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Timer1: TTimer;
    Timer2: TTimer;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image12: TImage;
    Image13: TImage;
    Image14: TImage;
    Image15: TImage;
    Image16: TImage;
    Image17: TImage;
    Image18: TImage;
    Image19: TImage;
    Image20: TImage;
    bt: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure btClick(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if image1.visible = true
then begin
     image1.visible:= false;
     image2.visible:= false;
     image3.visible:= false;
     image4.visible:= false;
     image5.visible:= true;
     image6.visible:= true;
     image7.visible:= true;
     image8.visible:= true;
     timer1.Interval := 500;
     end
else begin
     image1.visible:= true;
     image2.visible:= true;
     image3.visible:= true;
     image4.visible:= true;
     image5.visible:= false;
     image6.visible:= false;
     image7.visible:= false;
     image8.visible:= false;
     timer1.Interval := 500;
     end
end;

procedure TForm1.btClick(Sender: TObject);
begin
if bt.caption= 'AN'
then begin
     image1.visible:=true;
     image2.visible:=true;
     image3.visible:=true;
     image4.visible:=true;
     image10.visible:=true;
     image12.visible:=true;
     image13.visible:=true;
     image14.visible:=true;
     bt.caption:='AUS';
     timer1.enabled:=false;
     timer2.enabled:=true;
     end
else begin
     bt.caption:='AN';
     image1.visible:=true;
     image2.visible:=true;
     image3.visible:=true;
     image4.visible:=true;
     image5.visible:=false;
     image6.visible:=false;
     image7.visible:=false;
     image8.visible:=false;
     image9.visible:=false;
     image10.visible:=false;
     image11.visible:=false;
     image12.visible:=false;
     image13.visible:=false;
     image14.visible:=false;
     image15.visible:=false;
     image16.visible:=false;
     image17.visible:=false;
     image18.visible:=false;
     image19.visible:=false;
     image20.visible:=false;
     timer2.enabled:=false;
     timer1.enabled:=true;
     end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if image13.visible = true
then begin
     image13.visible:=false;
     image14.visible:=false;
     image10.visible:=false;
     image12.visible:=false;
     image17.visible:=true;
     image18.visible:=true;
     image8.visible:=true;
     image7.visible:=true;
     timer2.interval:= 1500;
     end
else begin if image17.visible=true
then begin
     image17.visible:=false;
     image18.visible:=false;
     image7.visible:=false;
     image8.visible:=false;
     image9.visible:=true;
     image11.visible:=true;
     image15.visible:=true;
     image16.visible:=true;
     timer2.interval:=3000;
     end
else begin if image9.visible=true
then begin
     image9.visible:=false;
     image11.visible:=false;
     image15.visible:=false;
     image16.visible:=false;
     image5.visible:=true;
     image6.visible:=true;
     image20.visible:=true;
     image19.visible:=true;
     timer2.interval:=1500;
     end
else begin if image5.visible=true
then begin
     image5.visible:=false;
     image6.visible:=false;
     image20.visible:=false;
     image19.visible:=false;
     image13.visible:=true;
     image14.visible:=true;
     image10.visible:=true;
     image12.visible:=true;
     timer2.interval:=3000;
     end
end
end
end
end;

end.
nach oben

Gemäß der Verordnung (EU) 2016/679 des Europäischen Parlaments und des Rates vom 27. April 2016 teilen wir mit, dass diese Webseite eigene technische Cookies und Cookies Dritter verwendet, damit Sie effizient navigieren und die Funktionen der Webseite einwandfrei nutzen können.

Cookie-Einstellungen ändernCookies annehmen