Label nach Edit1.Text blinken lassen

[ManuMF]

Eine Minute = 60000 ms. Wenn das Label x-mal pro Minute blinken soll, muss also nur geteilt werden. Das TTimer.Interval ein Integer ist, bietet sich hier der Operator DIV an.

Timer1.Interval := 60000 DIV (2 * StrToIntDef(Edit1.text, 1)); Das 2x kommt, weil das Label ja blinken soll (= angehen UND ausgehen), also 1 mal blinken = 2 mal onTimer.

[edit]
Das onTimer geht einfacher!
Label1.Visible := not Label1.Visible; Da braucht es keine Überprüfung. Übrigens: sollte dennoch geprüft werden, ist es kürzer, wenn "If (Label1.Visible) then ..." geschrieben wird.
[/edit]

Gruß,
ManuMF