Q&A

  • Edit 질문입니다.
edit 창에 8자리 제품코드를 넣는데 7자 이하로 넣었을때
애러메세지 출력하고 싶습니다.
edit.maxlength 로 8자 이상은 못들어 가게끔 할수 있는데
그 이하의 자리수를 넣었을때 제어하는 방법좀 알려주세요 . 고수님들
2  COMMENTS
  • Profile
    장정환 2006.05.18 17:56


    procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      if Length(edit1.Text) < 9 then
        Label1.Caption := IntToStr(Length(edit1.Text));
    end;

    procedure TForm1.Edit1Change(Sender: TObject);
    begin
      if Length(edit1.Text) < 9 then
        Label1.Caption := IntToStr(Length(edit1.Text));
    end;
  • Profile
    일그니 2006.05.19 00:34
    음 7자리 이하로 입력시 메세지나 경고를 표출하실려면
    넣는 시점이 아니라 입력을 다끝나고 나가는 시점에 체크를 하심을 권해드립니다.

    eidt 이벤트에 보시면 onexit라는 이벤트가 있습니다.
    포커스가 벗어나는 순간의 시점을 가리킵니다.