استخدام المصصح الاملائي لدلفي

سلام

لكي تستخدم المصصح الاملائي لدلفي فانه يجب ان تتاكد من انك تملك

احد مكتبات OCX وهي VCSpell3 قد تجدها في

C:Program FilesBorlandDelphi5OcxVciVspell

ادا لا تريد البحت فقم بالتالي

كون مشروع جديد

في خانة uses

ادا لم تعرفها فهي كتالي

 

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

الان في نهاية هده القائمة اضف هده المكتبة vcspell3

ليصبح كالتالي

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,vcspell3;

الان نفد البرنامج , ادا لم يعطيك رسالة خطاء , فانت جاهز لاستخدام المصصح الاملائي .

وكمتال بسيط له ,

ضع Memo و زر على الفورم

عرف المتغير الخارجي التالي

VSSpell1: TVSSpell;

اضغط بالماوس مرتين متتاليتين على form الفورم , تم اكتب التالي

 

begin

VSSpell1:= TVSSpell.Create(self);

end;

اضغط بالماوس مرتين متتاليتين على الزر , تم اكتب التالي

 

procedure TForm1.Button1Click(Sender: TObject);

Var

sMemo :String;

begin

sMemo := Memo1.Text;

if Length(Trim(sMemo)) = 0 then  //is Memo1.Text blank (no text)

MessageDlg('No Text To Spell Check!', mtError, [mbOK], 0); //Memo1.Text is blank error

if Length(Trim(sMemo)) <> 0 then begin //is Memo1.Text is not blank (has text)

VSSpell1.CheckText := Memo1.Text; //check spelling

if VSSpell1.ResultCode = 0 then

// the spelling was properly executed

Memo1.Text := VSSpell1.Text;



end;

end;

الان نفد البرنامج , واكتب مجموعة جمل داخل Memo , تم اضغط الزر .

ستلاحظ ظهور برنامج مصصح الاخطاء .

وشكرا