Waitで困った症状を回避するには？ (ID:6555)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Halbowさん，またお世話になります。
コードは，全部で600行を超えていますので，上の続きを
少し載せておきます。この後は，二つのCase文の繰返しです。

begin
  StringGrid1.MouseToCell(x, y, RC, CC);
  if (RC = -1) or (CC = -1) then Exit;
  if (Kx <> RC) or (ky <> CC) then  
  begin
  kisoshori;
  Edit1.Text := StringGrid1.Cells[RC, CC];
  Kx := RC; Ky := CC;           
  Case Kx of
    10: begin
      Case Ky of
        0..4: begin
         IroHenko1(RC10[CC].PnlNo1);
         Edit2.Text := RC10[CC].komoji;
         Edit3.Text := RC10[CC].oomoji;
        end;
        6..10,12..16: begin
         Edit2.Text := RC10[CC].komoji;
         Edit3.Text := RC10[CC].oomoji;
         IroHenko3(RC10[CC].PnlNo1,RC10[CC].PnlNo2,RC10[CC].PnlNo3);
        end;
         5,11: kisoshori;
        end;
      end;
    9: begin
      case Ky of
        0..4, 6..10: begin
         Edit2.Text := RC9[CC].komoji;
         Edit3.Text := RC9[CC].oomoji;
         Edit4.Text := RC9[CC].komoji2;
         Edit5.Text := RC9[CC].oomoji2;
         IroHenko2(RC9[CC].PnlNo1, RC9[CC].PnlNo2);
        end;

>Font色を変えるまでは，そういう症状はありませんでした。
それまでは，カーソルが「た」の上にある間は，Edit2のTextは「ta」の
ままだったのです。ちなみにEdit3は大文字の「TA」です。

←解決時は質問者本人がここをチェックしてください。

戻る