ウインドウのタイトルバーを点滅させる

タイトルバーを点滅させる

サンプルを実行するとタイトルバーが下記の図のようになります。

■使用するAPI関数

GetTickCount （システムが起動してからの時間を取得する）
FlashWindow（ウインドウのタイトルバーを点滅させる）

■ソースは下記のようになります。

■タイトルバーを点滅させる処理

procedure TForm1.Button1Click(Sender:
TObject);

Var

　mm: Integer;

　i :Integer;

begin



　For i := 0 To 10 do

　begin

　　

　　//システムが起動してからの経過時間を取得する

　

　　//待機する

　　repeat until GetTickCount() > mm + 150 ;

　　//タイトルバーを点滅させる

　　FlashWindow(Form1.Handle,True)
;

　end;

　//タイトルバーを元の色に復元する

　FlashWindow(Form1.Handle,False) ;



end;

Win32APIのページへ

ホーム PV ランキング