урок на делфи 41 - защита от неправильного ввода
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Mask, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
MaskEdit1: TMaskEdit;
MaskEdit2: TMaskEdit;
Edit5: TEdit;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{Программа подготовлена для ролика на ютубе https://youtu.be/ckhfzySIU1A
И скачена с сайте http://dear-ruslan.ru
Автор Салихьянов Руслан. }
{$R *.dfm}
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) then
Key:=#0;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['a'..'z']) then
Key:=#0;
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if (key='q')or (key='w')or (key='e')or (key='r') then
begin
key:=#0;
Beep;
end;
end;
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if (key='q')or (key='w')or (key='e')or (key='r') then
begin
key:=#0;
ShowMessage('незя');
end;
end;
procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
var d:integer;
begin
if not TryStrToint(key,d) then
begin
key:=#0;
ShowMessage('незя');
end;
end;
end.