Hallo!!
Egal, was Du auch verwendest (Button zum ändern oder einen Timer zum automatischen ändern des Textes) würde ich folgendes Prinzip anwenden:
Delphi-Quellcode:
VAR MeineTexte : Array[0..1] of String;
TextItem : Byte;
[...]
// Initialisieren am PRogrammanfang
MeineTexte[0] := 'TextA';
MeineTexte[1] := 'TextB';
TextItem := 0;
Label1.Caption := MeineTexte[0];
[...]
if TextItem = 0 Then Begin // Bei mehreren mit CASE arbeiten...
Label1.Caption := MeineTexte[1];
TextItem := 1;
End Else Begin
Label1.Caption := MeineTexte[0];
TextItem := 0;
End;
SCRaT