0

Windows Mobile 用の非常に単純なターミナル アプリケーションを作成しています。シリアル ポートを開き、入ってくるデータをすべてダンプしTMemoます。このアプリケーションは Windows Mobile 5 では問題なく動作しますが、Windows Mobile 6.1 ではメモの動作がおかしくなりました。約 100 文字を超えると、メモにテキストが追加されなくなり、それ自体が描画されなくなります (たとえば、スタート メニューを開いて閉じると、テキストが表示されなくなります)。このコードを単純なアプリケーションで使用したところ、問題が再現されました。何かご意見は?

procedure TForm1.Button1Cick(Sender: TObject);
begin
  while not Application.Terminated do
  begin
    mmPort.Text := mmPort.Text + Chr(Random(90) + 32);
    if Random > 0.9 then
      Application.ProcessMessages;
  end;
end;
4

0 に答える 0