掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
OnMouseMove イベントで処理をするには？ (ID：6513)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
前々回の質問（下記）で， https://www.petitmonte.com/bbs/answers?question_id=1271 Halbowさんにヒントをもらったのですが，浅はかな知識では うまくできません。カーソルが同じセル内で動いても，Editの 表示がチカチカしています。 私が書いてみたコードは，以下の通りです。 {$R *.dfm} var Kx, Ky: integer; // グローバル変数 ……………… var RC, CC: integer; begin StringGrid1.MouseToCell(x, y, RC, CC); if (RC = -1) or (CC = -1) then Exit; if (Kx <> RC) or (ky <> RC) then // 1/4に追加 begin Edit1.Text := StringGrid1.Cells[RC, CC]; Kx := RC; Ky := CC; // 1/4に追加 Case Kx of 10: begin Case Ky of 0..4: begin IroHenko1(RC10[CC].PnlNo1); Edit2.Text := RC10[CC].komoji; ……………… 画面がチカチカするので，これではKxやKyの効果はないものと 思われます。 どうしたらいいのでしょうか。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.