10月 | 2014 | Pascal 日和

Lazarus 1.2.4 まで、基本的なところで結構厄介な問題がありました。
同じプログラム(同じEXEファイル)にもかかわらず、実行するPCによって問題が発生する場合と発生しない場合があります。Windows 7、Windows 8の区別もありません。そういう意味では、まったくこの問題に遭遇していない方も多いかと思います。また、配布したら配布先から問題を指摘されたりというケースもあったかと思います。

この問題は Lazarus 1.2.6 で改善されました。(Issue #0019716)
完全に直ったかどうかは何とも言えませんが、私がいくつかのPCで確認したところ問題が発生していたPCで発生しなくなりました。問題が発生していなかったPCもそのまま問題ありません。

どういう問題かというと。

まず、次のようにフォーム上にEditコントロール、Memoコントロール、Buttonコントロールを１つずつ配置します。

フォームのCreateとボタンのClickイベントを以下のように作成します。

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := '<漢字文字列です>';
  Memo1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Append(Edit1.Text);
end;

実行すると、Editコントロールの文字列が全選択となるはずですが、途中までしか選択されません。