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;