Einzelnen Beitrag anzeigen

a.def
(Gast)

n/a Beiträge
 
#6

AW: Zeitgrenzen setzen

  Alt 26. Apr 2017, 21:52
Hier eine kleine Hilfe
Delphi-Quellcode:
// Das hier ist bei mir ein button!
procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Visible := False; // Edit verstecken
 Timer3.Interval := 5000; // Timer auf 5000 Millisekunden stellen
 Timer3.Enabled := True; // Timer starten
end;

// Der Timer nun selber:
// Sobald man oben auf den Button drückt, wird er Timer gestartet und es dauert rund 5 Sekunden bis das Edit angezeigt wird!
procedure TForm1.Timer3Timer(Sender: TObject);
begin
 Timer3.Enabled := False; // Timer AUSSCHALTEN
 Edit1.Visible := True; // Edit anzeigen
end;
1. setz einen Button, ein Edit und einen Timer auf dein Formular
2. Doppelklicke in den Button und füge den Code ein
3. Doppelklicke in den Timer und füge den Code ein

- im Objektinspektor würde ich den Timer aber noch auf Enabled False setzen (da er sonst bei Programmstart direkt "an" ist) und das Edit auf Visible := False.
  Mit Zitat antworten Zitat