unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    RichEdit1: TRichEdit;
    procedure RichEdit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure CaretPos(H: THandle; var L,C : Word);
begin
  L := SendMessage(H,EM_LINEFROMCHAR,-1,0);
  C := LoWord(SendMessage(H,EM_GETSEL,0,0)) - SendMessage(H,EM_LINEINDEX,-1,0);
end;


procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  LineNum,ColNum : Word;
begin
  CaretPos(RichEdit1.Handle,LineNum,ColNum);
  Statusbar1.Panels[0].Text := format('Line %d   Col %d',[LineNum,ColNum]);
end;

end.

번호 제목 글쓴이 날짜 조회 수
공지 [DelphiCon 요약] 코드사이트 로깅 실전 활용 기법 (Real-world CodeSite Logging Techniques) 관리자 2021.01.19 18434
공지 [UX Summit 요약] 오른쪽 클릭은 옳다 (Right Click is Right) 관리자 2020.11.16 16733
공지 [10.4 시드니] What's NEW! 신기능 자세히 보기 관리자 2020.05.27 19349
공지 RAD스튜디오(델파이,C++빌더) - 고객 사례 목록 관리자 2018.10.23 24978
공지 [데브기어 컨설팅] 모바일 앱 & 업그레이드 마이그레이션 [1] 관리자 2017.02.06 26315
공지 [전체 목록] 이 달의 기술자료 & 기술레터 관리자 2017.02.06 21664
공지 RAD스튜디오(델파이, C++빌더) - 시작하기 [1] 관리자 2015.06.30 42301
공지 RAD스튜디오(델파이,C++빌더) - 모바일 앱 개발 사례 (2020년 11월 업데이트 됨) 험프리 2014.01.16 177648
23 Delphi XE2에서 맥 애플리케이션을 만들어 보자 박병일 2012.01.18 13043
22 델파이 XE2로 아이폰앱 만들기 박병일 2012.01.18 13062
21 델파이 XE2로 만든 아이폰 앱 - TicTacToe file 박병일 2012.01.17 13978
20 2012년 소프트웨어 트랜드 세미나 박병일 2012.01.12 7617
19 [링크]안드로이드를 위한 데이터 스냅 서버 박병일 2012.01.12 8442
18 VCL Style Util 박병일 2012.01.11 10290
17 32개의 Rad Studio 비디오 튜토리얼 박병일 2012.01.07 3833
16 델파이 에서 안드로이드로 박병일 2012.01.06 6204
15 SendMessage 함수를 이용한 메세지 전송 관리자 2012.01.05 18331
14 델파이 XE2의 Namespace 문제 관리자 2011.12.22 5485
» RichEdit 에서 라인과 칼럼을 알아내기 박병일 2011.12.22 6727
12 PrintDialog 를 사용하지 않고 프린트 하기 박병일 2011.12.22 6171
11 Image 에 글자 출력하기 박병일 2011.12.22 7276
10 Form에 있는 콤포넌트를ListView 로 나타내기 박병일 2011.12.22 5596
9 DBGrid 에서 GraphicsField 보여주기 박병일 2011.12.22 5781
8 DBGrid 에서 Cell 모양의 색깔 바꾸기 박병일 2011.12.22 11286
7 ComboBox에서 Focus 가 올때 자동으로 펼쳐 내리기 박병일 2011.12.22 11448
6 CD-ROM 열고 닫기 박병일 2011.12.22 44770
5 Alt -F4 로 종료 못하게 하기 박병일 2011.12.22 10841
4 Hotfix 2 for C++Builder XE2, Delphi XE2 and RAD Studio XE2 is now available 박병일 2011.12.22 5836