Q&A

  • edit1에서 8자로 제안하는법
안녕 하세요

edit1에 입력을 8자로 제안하려고 합니다.

아래에서 edit2.MaxLength := 8;

아고 하면 된다고 해서 했는데 잘되더군요.

근데 한단계 발전해서.

8글째자거 써질때...경고메세지를 보낼수 없을까요??

"아이디는 8자 까지 입니다."

라고요.

흠흠..

꼭 담변을 ㅠ.ㅠ



1  COMMENTS
  • Profile
    구창민 1999.08.12 00:08
    양효비 께서 말씀하시기를...

    > 안녕 하세요

    > edit1에 입력을 8자로 제안하려고 합니다.

    > 아래에서 edit2.MaxLength := 8;

    > 아고 하면 된다고 해서 했는데 잘되더군요.

    > 근데 한단계 발전해서.

    > 8글째자거 써질때...경고메세지를 보낼수 없을까요??

    > "아이디는 8자 까지 입니다."

    > 라고요.

    > 흠흠..

    > 꼭 담변을 ㅠ.ㅠ

    >



    양효비님 안녕하세요?

    Edit 컴포넌트의 OnChange 이벤트 핸들레 아래처럼..



    procedure TForm1.Edit1Change(Sender: TObject);

    begin

    if Length(Edit1.Text)=8 then

    ShowMessage('8번째 글자를 입력하셨네요');

    end;



    그럼 즐거운 프로그래밍 되세요~