Forum: Object-Pascal / Delphi-Language
by Dunkel,
28. Mai 2007
//===Timer3 interval erhöhen====================================================
procedure TForm5.Button10Click(Sender: TObject);
begin
n:=n+100;
Timer3.Interval:= n; //Wert "n" übergeben
Label3.Caption:= Format('%1.1f Sekunden', );
Label3.Update; // Label aktualisieren
end;
//===Timer2 Intervall verkürzen==================================================
Forum: Object-Pascal / Delphi-Language
by Dunkel,
28. Mai 2007
Label3.Caption:= IntToStr(Timer3.Interval div 1000)+' Sekunden'; //Intervallanzeige
Recht so?