文字を点滅させるには？

解決

きー  2004-03-08 17:41:52  No: 7619  IP: 192.*.*.*

フォーム上のラベルのキャプションを点滅させたいのですが、どうすればいいですか？
ずっと点滅ではなく、ある処理をしている間、点滅させたいのです。
どなたがご存知の方お願いします。

編集 削除
jok  2004-03-08 19:23:14  No: 7620  IP: 192.*.*.*

タイマを使って Visible は反転させたらいいのでは。

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := false;
  Timer1.Interval := 300;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := not Timer1.Enabled;
  if not Timer1.Enabled then Label1.Visible := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Visible := not Label1.Visible;
end;

編集 削除
きー  2004-03-10 16:12:07  No: 7621  IP: 192.*.*.*

jokさま
ありがとうございます。上記のようにやって解決しました！

編集 削除