Delphi FAQ: キャレット(のある行を)を視野内にスクロールイン

１５番会議室「ＦＡＱ編纂委員会」に寄せられた「よくある質問の答え」

[Ｑ]
TMemoやTRichEdit等で検索し、selStartでキャレットを対象文字列位置に移動しますが、その際キャレットが視野の外にいくと検索の意味がありません。キャレットが視野内に入るようにスクロールさせるにはどうしたらよいでしょうか

[Ａ]

EM_ScrollcaretメッセージをそのEditコントロールへ送ります。

[例]

検索した結果(ヒットした文字列の位置)がListBox1に収納されているとする。

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  RichEdit1.SelStart:=strToInt(ListBox1.items[ListBox1.itemindex]);
  SendMessage(RichEdit1.handle,EM_Scrollcaret,0,0);
  RichEdit1.setFocus;
end;

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum FDELPHIに寄せられる質問の中から、よくある質問への回答を FDELPHIのメンバーがまとめたものです。　したがって、これらの回答はボーランド株式会社がサポートする公式のものではなく、掲示されている内容についての問い合わせは受けられない場合があります。