Delphi-PRAXiS - Einzelnen Beitrag anzeigen - brauche bishen hilfe damit die zeit im Edit runter leuft

brauche bishen hilfe damit die zeit im Edit runter leuft
zb ich stele 20min ein und dan nach einer min steht da 19min

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:=StrtoInt(Edit2.text)*60000;
ShellExecute(Application.MainForm.Handle, nil, PChar( Edit1.Text),nil,nil, SW_SHOWMAXIMIZED);

end;

MisterX (Gast) n/a Beiträge	#1 brauche bishen hilfe damit die zeit im Edit runter leuft 22. Apr 2005, 13:22 brauche bishen hilfe damit die zeit im Edit runter leuft zb ich stele 20min ein und dan nach einer min steht da 19min procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Interval:=StrtoInt(Edit2.text)*60000; ShellExecute(Application.MainForm.Handle, nil, PChar( Edit1.Text),nil,nil, SW_SHOWMAXIMIZED); end;