int FoundAt, StartPos, ToEnd;
    AnsiString S;
        StartPos = FSelPos + FindDlg->FindText.Length();
    if (MemLog->SelLength)
        StartPos = MemLog->SelStart + MemLog->SelLength;
    else
        StartPos = 0;

    S = MemLog->Lines->Text;

    ToEnd = MemLog->Text.Length() - StartPos;
    FoundAt = S.Pos(FindDlg->FindText);
    if(FoundAt != -1) {
        MemLog->SetFocus();
        FoundAt = FoundAt + StartPos -1;
        MemLog->SelStart = FoundAt-1;
        MemLog->SelLength = FindDlg->FindText.Length();
    }
    else {
        ShowMessage(AnsiString().sprintf("[%s]が見つかれません",FindDlg->FindText));
    }


대충 링크된 곳과 비슷하게 해보려는데.. 뭔가 찾으면 찾은거 갖기는 한데 엄한테 블록지정이되네요 ㅠㅠ
글구 차례댈 안되고.. 암튼... 으흑 으흑.. 어려워요.

civilian,안영제 님이 쓰신 글 :
: http://www.swissdelphicenter.ch/en/showcode.php?id=1881
:
:
: 공윤경 님이 쓰신 글 :
: : 있다는것은 찾아지는데
: : 그놈들을 커서가 찾아가려면... 무엇을 이용해야..할런지요 ^^;