::: 델파이 Tip&Trick :::

델파이 Tip&Trick 성격에 맞지 않는 광고,비방,질문의 글은 즉시 삭제하며
내용을 복사하여 사용할 경우 반드시 이곳(http://www.howto.pe.kr)을 출처로 명시하여 주세요


Category

  김영대(2003-03-05 10:42:02, Hit : 4939, Vote : 1158
 Memo의 커서를 특정 위치로 보낸후 scroll 시키기

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

procedure GetMemoRowCol(M: TMemo; var Row, Col: LongInt);
begin
  Row := SendMessage(M.Handle, EM_LINEFROMCHAR, M.SelStart, 0);
  Col := M.SelStart-SendMessage(M.Handle, EM_LINEINDEX, Row, 0);
end;

procedure SetMemoRowCol(M: TMemo; Row, Col: Integer);
begin
  M.SelStart := SendMessage(M.Handle, EM_LINEINDEX, Row, 0) + Col;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetMemoRowCol(Memo1, 20, 22);
  Memo1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // cursor를 원하는 위치로 보낸 후 EM_SCROLLCARET 메시지를
  // Memo에 보내어 caret이 위치로 scroll 시킨다
  // wParam(0), lParam(0) 파라미터는 무시된다
  SendMessage(Memo1.handle, EM_SCROLLCARET, 0, 0);
  Memo1.SetFocus;
end;

end.





491   [일반/컴포넌트] TIFF Images and manipulation  김영대 2003/03/07 4892 1181
490   [윈도우즈 API] 메모(TMemo)의 커서(캐럿)모양 바꾸기  김영대 2003/03/05 4893 1913
489   [COM/OLE] Registering *.tlb files without Delphi  김영대 2003/03/06 4894 1127
488   [일반/컴포넌트] ListBox.Items.Add 는 느리고 깜박거린다(?)  김영대 2003/03/05 4895 1139
487   [시스템] 드라이브 포맷(Format) API 함수  김영대 2003/03/04 4899 1338
486   [윈도우즈 API] 화면캡처하기 Delphi3.0에서...  김영대 2003/03/04 4900 1327
485   [윈도우즈 API] 휴지통이 비어있는지 확인하기  김영대 2004/08/05 4901 1242
484   [일반/컴포넌트] 문자열 역으로 만들기(reverse a string)  김영대 2003/03/06 4903 1488
483   [네트웍/인터넷] 네트워크 컴퓨터가 존재하는지 검사하기  김영대 2003/03/07 4903 1261
482   [윈도우즈 API] 도구모음 Bar는 어떻게 만드는지...  김영대 2003/03/04 4904 1386
481   [일반/컴포넌트] TRichEdit 콤포넌트 없이 RTF파일 인쇄하기  김영대 2003/03/05 4909 1421
480   [일반/컴포넌트] ListBox의 내용을 클립보드로 복사하기  김영대 2003/03/05 4913 1134
479   [윈도우즈 API] 다른 프로그램의 구동 디렉토리 알아내기  김영대 2003/03/07 4914 1337
478   [데이터베이스] DBGrid 에서 선택된 필드의 타이틀을 굵게  김영대 2003/03/04 4915 1356
477   [시스템] CD-ROM 문 열기/닫기  김영대 2003/03/04 4916 1413
476   [네트웍/인터넷] IP로 이름 구하기 또는 이름으로 IP 구하기  김영대 2003/03/30 4917 1286
475   [네트웍/인터넷] 인터넷에 LAN 또는 Modem으로 접속중인지 검사  김영대 2003/03/07 4919 1300
474   [일반/컴포넌트] Convert between a DFM and a TXT file  김영대 2003/03/05 4921 1432
473   [시스템] 프로그램 제거(Uninstall) 목록 구하기  김영대 2004/08/05 4925 1308
472   [일반/컴포넌트] Bitmap(BMP) 크기를 변경(Stretch)하여 저장하기  김영대 2003/03/07 4927 1299
471   [알고리즘] 32bit CRC (cyclic redundancy check)  김영대 2004/09/17 4927 1233
470   [일반/컴포넌트] 동적으로 프로젝트의 Main form 바꾸기  김영대 2003/04/11 4932 1188
469   [일반/컴포넌트] StrToFloatDef  김영대 2003/11/13 4932 1258
468   [시스템] 마우스 포인터 속도 바꾸기  김영대 2003/03/06 4937 1251
  [일반/컴포넌트] Memo의 커서를 특정 위치로 보낸후 scroll 시키기  김영대 2003/03/05 4939 1158
466   [일반/컴포넌트] ListView 의 column header 오른쪽에 이미지 넣기  김영대 2003/03/07 4942 1209
465   [일반/컴포넌트] 프린터로 escape 문자 출력하기(raw print)  김영대 2003/03/07 4944 1232
464   [일반/컴포넌트] Multi-Line Hints  김영대 2003/03/05 4951 1487
463   [일반/컴포넌트] PageControl 에서 미리 이동하려는 Sheet 알아내어 제어하기  김영대 2004/09/13 4951 1260
462   [시스템] CPU의 사용률 구하기  김영대 2003/03/07 4953 1276
461   [네트웍/인터넷] Read/Write to COM Port  김영대 2003/03/07 4953 1174
460   [일반/컴포넌트] MIME 타입에 해당하는 파일 확장자 구하기  김영대 2004/11/18 4953 1326
459   [일반/컴포넌트] ASCII printing  김영대 2003/03/06 4957 1198
458   [COM/OLE] How to register an OCX  김영대 2003/03/06 4962 1169
457   [일반/컴포넌트] 파일의 변경/생성/사용한 날짜 바꾸기  김영대 2003/03/07 4962 1261
456   [윈도우즈 API] 현재 키보드 입력 언어 구하기  김영대 2004/07/24 4965 1348
455   [윈도우즈 API] '알려진 파일 형식의 파일 확장명 숨김' 여부  김영대 2004/08/25 4967 1251
454   [일반/컴포넌트] URL 을 각 part로 분리하기  김영대 2003/03/30 4968 1273
453   [윈도우즈 API] IE 임시 인터넷 파일 폴더 비우기2  김영대 2004/08/11 4968 1307
452   [윈도우즈 API] 화면의 Memo 가 보여줄 수 있는 라인수 알아내기  김영대 2003/03/05 4970 1259

[이전 10개] [1]..[11][12] 13 [14][15][16][17][18][19][20]..[25] [다음 10개]
 

Copyright 1999-2021 Zeroboard / skin by zero