Q&A

  • 프로그램의 모든기능이 사용중지하게 만드는 방법
만약에

Memo1에 '바보'라고 입력했을경우 프로그램의 모든기능이 사용중지하게 만드는 방법좀 알려주세요..-_-;;

어떻게 해야할까요;;
1  COMMENTS
  • Profile
    윤종경 2002.02.07 09:28
    Memo1이 OnChange될때 다음과 같이 해주면 될것 같네여
    Memo1 컴퍼넌트를 비활성화 시켜주면 됩니다.
    그외에 버튼따위의 컴퍼넌트가 있다면 그것도 함께 코딩해주면 되겠져?
    그럼...

    procedure TForm1.Memo1Change(Sender: TObject);
      var Val1, Val2 : String;
    begin
      Val1 := Memo1.Text;
      Val2 := '바보';
      if Copy(Val1, Memo1.SelStart - Length(Val2), Length(Val2)) = Val2 then
      begin
        Memo1.Enabled := False;
      end;
    end;