Как использовать проверку грамматики? |
Previous Top Next |
Code: |
{ If you are using Delphi 2+ and have the ActiveX component TVSSpell, it is very simple to add a spell checker to your TMemo applications. (Note: Do not use this component with a Rich Edit application because of text formatting problems.) }
procedure TForm1.Button1Click(Sender: TObject); begin if Memo1.Text = '' then Exit;
VSSpell1.CheckText := Memo1.Text; if VSSpell1.ResultCode = 0 then Memo1.Text := VSSpell1.Text; end;
{ To distribute a VisualSpeller application you have to include the following files:
}
{ - VsSpell.HLP - VSPELL32.OCX - VSPELL32.DLL - AMERICAN.VTD - VSPELL.HLP } |
©Drkb::04466
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php