这东西如果想用怎样用，作者没有告诉使用的方法

Question

http://www.csdn.net/develop/Article/15/15140.shtm
这东西如果想用怎样用
作者没有告诉使用的方法

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
   SymbolChecker1.Active:=true;     //使控件开始工作.   
   SymbolChecker1.CheckString:='a';  //需要检查的字符; 
   SymbolChecker1.CheckControls:=[cTEdit]; //只检查eidit控件;
   //SymbolChecker1.CheckControls:=[cTEdit, cTComboBox] //都检查(默认)
   
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
    SymbolChecker1.Checking;    // 执行检查，如果有指定字符则报告。
end;