Einzelnen Beitrag anzeigen

Benutzerbild von inherited
inherited

Registriert seit: 19. Dez 2005
Ort: Rosdorf
2.022 Beiträge
 
Turbo Delphi für Win32
 
#25

Re: Zeit ablaufen lassen

  Alt 5. Mai 2006, 19:29
Zitat von mindforce:
[...]
Delphi-Quellcode:
var
FTime : TDateTime;

procedure StartCountdown(AnzSekunden : Integer);
begin
FTime:=IncSecond(Now,AnzSekunden);
Timer1.enabled:=True;
end;

//Timerintervall auf 1000
procedure TForm1.Timer1Time(Sender : TObject);
begin
if Now > FTime then
begin
ShowMessage('BOOOM');
Timer1.enabled:=False;
end;
end;
kann ich nicht deklarieren. Ich bin zu dumm dafür.

VIELEN DANK AN ALLE.

Gruss,

Mindforce
Die musst du garnicht deklarieren. Schreib sie einfach so irgendwo unter implementation hin

Timer1.enabled:=True; wohl eher
Form1.Timer1.enabled:=True; €dit: oh, hoffe das kommt nich zu spät?

Code:
Mindforce
ehem. Benutzer
Nikolai Wyderka

SWIM SWIM HUNGRY!
Neuer Blog: hier!
  Mit Zitat antworten Zitat