Der code sieht so aus:
Delphi-Quellcode:
procedure TForm3.Timer1Timer(Sender: TObject);
begin
if form3.L1.Visible = true
then begin form3.L1.visible := false;
form3.Image1.Visible:= false;
form3.Image2.Visible:= true;
form3.L2.Visible:= true;
end;
end;
auf form3 ist ein Image und ein Label zu sehen!(Image1/L1)
Diese sind auf visible:= true eingestellt.
Der Timer soll diese nun wenn zu sehen visible:= false schalten
und ein anderes Image und ein anderes Label visible:= true schalten.(Image2/L2).
Das intervall des Timers ist auf 9 sekunden festgelegt, damit das erste Image bzw. Label 9 Sekunden zu sehen ist,
und dann umgeschaltet wird.