Hi,
versuchs mal so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.enabled := true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
const
zaehler:integer = 20;
begin
if odd(zahler)
then
Label1.caption := '
...na also'
else
Label1.caption := '
jetzt gehts los...';
dec(zaehler);
if zaehler <= 0
then
Timer1.enabled := false;
end;
Zur Erläuterung:
der Button startet den Vorgang: Also im Formdesigner muss Timer1.enabled auf false stehen.
Die Timerroutine wird aufgerufen und setzt je nach zaehler den entsprechenden Text.
Wenn der zaehler auf 0 gezaehlt ist stoppt der Timer.
Gruss