Q&A

  • 리치에디트에서 맨 위로 커서를 옮기는 법...

리치에디트를 가지고 How To 문서를 작성
했습니다.
그런데 글의 내용이 길어져서 수직 스크롤바가
생겼습니다.
버튼을 클릭했을 때 How To 문서 창이 뜨는데
창이 뜨면서 항상 글의 끝부분을 보여주더군요....

창이 뜰때 글의 첫 부분이 보이도록 하고 싶은데
어떻게 해야하나요?

2  COMMENTS
  • Profile
    nilriri™ 2004.03.16 19:20
    C:\Program Files\Borland\Delphi6\Demos\RichEdit

    폴더에있는 데모 프로그램 소스의 일부입니다. 참고하세요..

    해당 소스 참고하시면 도움이 되실듯 합니다..

    그럼..


    procedure TMainForm.UpdateCursorPos;
    var
      CharPos: TPoint;
    begin
      CharPos.Y := SendMessage(Editor.Handle, EM_EXLINEFROMCHAR, 0,
        Editor.SelStart);
      CharPos.X := (Editor.SelStart -
        SendMessage(Editor.Handle, EM_LINEINDEX, CharPos.Y, 0));
      Inc(CharPos.Y);
      Inc(CharPos.X);
      StatusBar.Panels[0].Text := Format(sColRowInfo, [CharPos.Y, CharPos.X]);
    end;


  • Profile
    윤상현 2004.03.16 20:22

    CharPos.x :=0 ;
    CharPos.y :=0 ;

    이렇게 했는데 안되던데요.....

    다른 방법은 없나요?

    저와 같은 경우가 많을 것 같으데....

    도와주세용....