文字を点滅させるには？

解決

きー 2004-03-09 02:41:52 No: 7619

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

jok 2004-03-09 04:23:14 No: 7620

タイマを使って 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-11 01:12:07 No: 7621

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