Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[6329] >질문< 도사님들 이 쏘스좀 고쳐주세요.
samdoo [ ] 644 읽음    1999-06-24 18:40

edit컴포넌트에서 글자수를 5글자로 제한하도록 컴포넌트를 수정했읍니다.
근데 selstart에서 에러가 나서 부탁드림니다.
사실 델파이 시작한지 이제 2주좀 넘었나 그렇거든요.
제머리로는 도저희 알수가 없네요.
책을 봐도 모르겠고요.
아래는 소스입니다.

unit Edit1;

interface

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

type
  TEdit1 = class(TEdit)
  private
     Procedure Change; Override;
  protected
  public
  published
     Property OnChange;
  end;

procedure Register;

implementation

procedure Register;
Begin
  RegisterComponents('Samples', [TEdit1]);
End;

Procedure TEdit1.Change;
Begin
  Inherited Change;
  If Length(Text) > 5 Then
  Begin
     Text := Copy(Text,1,5);
     SetSelStart(Length(Text));
  End;
End;

end.

여기까지 오긴왔는데 책보면서 짜집기한거라 웃지들 마세요.
얼마나 급하면 창피한 소스를 공개하겠읍니까? 쩝~!


+ -

관련 글 리스트
6329 >질문< 도사님들 이 쏘스좀 고쳐주세요. samdoo 644 1999/06/24
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.