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