Q&A

  • Richedit 채팅 창 구현할 때..
채팅 창 구현을 하고 있습니다.
Richedit컴포넌트에 대화 내용을 적고 있는데
서로 서버 클라이언트로 대화를 주고 받으면
Edit창에 글이 나옵니다.
그러면 자동으로 글이 다 차면 스크롤 바가 생겨서
올리고 내리면서 글을 볼수 있도록 하는 방법이 있을까여?ㅜㅜ
고수님들 가르쳐 주세여..
아무리 찾아봐도 헷갈리네여 어떡해 할지;;ㅜㅜ
1  COMMENTS
  • Profile
    허수진 2008.12.26 22:55


    procedure TForm1.ProgressMessage(Msg: string);
    var sInfo: TScrollInfo;
    spos, smax: integer;

    begin
    RichEdit1.Lines.Add(Msg);

    sInfo.fMask := SIF_RANGE;
    GetScrollInfo(RichEdit1.Handle, SB_VERT, sInfo);
    smax := sInfo.nMax;

    sInfo.fMask := SIF_POS;
    GetScrollInfo(RichEdit1.Handle, SB_VERT, sInfo);
    spos := sInfo.nPos;

    if spos < smax then RichEdit1.Perform(EM_LINESCROLL, 0, 2);
    end;


    이런식으로 코딩하였는데; 안되네여ㅜㅜ
    맞는건지 저런식으로 코딩하는게... 고수님들 가르쳐주세여ㅜㅜ