掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Waitで困った症状を回避するには？ (ID：6553)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
下記の質問で解決したかに見えたのですが，よく見ると困ったことが おきていました。 https://www.petitmonte.com/bbs/answers?question_id=1283 procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var RC, CC: integer; procedure IroHenko2(P1, P2: integer); procedure Wait(duration:DWORD); begin Application.ProcessMessages; 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; これで，Font色は時間をおいて変化しますが，Edit2とEdit3のTextが カーソルのあるセルのものとは，違うものになります。 例えば，「か」から「た」へカーソルを移動させると，Edit2のTextは 「ta」からしばらくするとカーソルが通ってきた「sa」に変わります。 Font色を変えるまでは，そういう症状はありませんでした。 どうしたらいいのでしょうか。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.