void __fastcall TForm1::Button1Click(TObject *Sender)    {
  FindDialog1->Position = Point(RichEdit1->Left   RichEdit1->Width, RichEdit1->Top);
  FindDialog1->Execute();    }
void __fastcall TForm1::FindDialog1Find(TObject *Sender)    {
  int FoundAt, StartPos, ToEnd;
  // begin the search after the current selection 
  // if there is one 
  // otherwise, begin at the start of the text 
  if (RichEdit1->SelLength)
    StartPos = RichEdit1->SelStart   RichEdit1->SelLength;
  else        StartPos = 0;      // ToEnd is the length from StartPos 
  // to the end of the text in the rich edit control      ToEnd = RichEdit1->Text.Length() - StartPos;      FoundAt = RichEdit1->FindText(FindDialog1->FindText, StartPos, ToEnd, TSearchTypes()<< stMatchCase);
  if (FoundAt != -1)
  {
    RichEdit1->SetFocus();
    RichEdit1->SelStart = FoundAt;
    RichEdit1->SelLength = FindDialog1->FindText.Length();
  }
}    

引言: pwipwi兄 謝謝你 你的這個是 Help中的範例 我就是覺得很奇怪,RichEdit的資料很多時 它的確會找到要搜尋的字串,可是RichEdit不會跟著 Scroll(捲動),所以所搜尋到的資料如果在RichEdit的很後面時. 那user不會知道是否已經搜尋到? 我要的是希望RichEdit能夠跟著捲動, 還是謝謝你 < >< >

SendMessage(RichEdit->Handle,WM_VSCROLL,SB_PAGEDOWN,0);