دخول

ELARAPY · 21-04-2011, 11:07 AM

لا اعلم مكانه

ولكن في قسم ال Type الاصدارين متشابهين تماما

2010

كود :
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
           if  not(Key in ['ء'..'ي',' ', #8]) then
  begin
    Key := #0;
    Beep;

  end;
end;

end.

دلفي 7

كود :
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
       if  not(Key in ['Á'..'í',' ', #8]) then
  begin
    Key := #0;
    Beep;

  end;
end;

end.

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة