Блокировка выделенных клавиш !!!

← →
Aleksandrrr © (2005-08-09 22:37) [0]

Пожалуйста ,подскажите как сделать так, чтобы в трех эдитах
набирались только русские буквы.
У меня работает только 1-й эдит
не могу понять,почему
unit namer;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;

procedure Button1Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure Namer;
var
surname:String;
name:String;
patronymic:String;

begin

if ((Length(Form1.Edit1.Text) = 0) or
(Length(Form1.Edit2.Text) = 0) or
(Length(Form1.Edit3.Text) = 0))
then
begin
ShowMessage("Заполните поля");
exit;
end;

surname := (Form1.Edit1.Text);
name:= (Form1.Edit2.Text);
patronymic:=(Form1.Edit3.Text);

Form1.Label4.Caption := surname + name + patronymic;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Namer;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
"а".."я",#8: ;
"Я".."Я":;
else Key := Chr(0);
end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
"а".."я",#8: ;
"А".."Я":;
else Key := Chr(0);
end;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
"а".."я",#8: ;
"А".."Я":;
else Key := Chr(0);
end;
end;

end.

← →
KilkennyCat © (2005-08-09 22:40) [1]

дежавю...

Не надо спамить.
http://delphimaster.net/view/1-1123532726/

Блокировка выделенных клавиш !!! Найти похожие ветки