掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Waitで困った症状を回避するには？ (ID:6557)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 Application.PrecessMessages をやめて、以下のようにしてみてください。 procedure IroHenko2(P1, P2: integer); procedure Wait(duration:DWORD); begin Panels[P1].Refresh; Panels[P2].Refresh; Sleep(duration) end; begin Panels[P1].Color := clYellow; Panels[P2].Color := clYellow; Wait(400); Panels[P1].Font.Color := clRed; Wait(400); Panels[P2].Font.Color := clRed; Wait(400); Panels[P1].Font.Color := clBlack; Panels[P2].Font.Color := clBlack; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.