Announcement
Collapse
No announcement yet.
TLabel blinkend darstellen. Wie geht das ?
Collapse
X
-
Setze einen Timer (TTimer bei Kategorie System) aufs Formular, Enabled auf True setzen, und Interval z.B. auf 500 ms.
Im Quellcode wechselst du einfach die Visible-Eigenschaft des Labels:
<code><pre>
<font face="Courier New"><font color="#000080"><b>procedure</b></font> TForm1<font color="#FF0000">.</font>Timer1Timer<font color="#FF0000">(</font>Sender<font color="#FF0000">:</font> TObject<font color="#FF0000">)</font><font color="#FF0000">;</font>
<font color="#000080"><b>begin</b></font>
Label1<font color="#FF0000">.</font>Visible <font color="#FF0000">:=</font> <font color="#000080"><b>not</b></font> Label1<font color="#FF0000">.</font>Visible<font color="#FF0000">;</font>
<font color="#000080"><b>end</b></font><font color="#FF0000">;</font></font>
</pre></code>
<p>
Gruß,<br>
Bernhar
Comment