Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit U_Batasan;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
- type
- TForm1 = class(TForm)
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- Label4: TLabel;
- Edit1: TEdit;
- Edit2: TEdit;
- Edit3: TEdit;
- Edit4: TEdit;
- Button1: TButton;
- procedure FormShow(Sender: TObject);
- 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 Button1Click(Sender: TObject);
- private
- procedure EchhiDesu;
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.dfm}
- {
- Programmer : Jean Riko Kurniawan Putra, S.Kom
- Hobbi : Nonton Anime, Ngesub Anime, Programmig, Phreaking
- FB : Jean Riko Kurniawan Putra
- Blog : http://djeansoftware.blogspot.com/
- Fanpage : https://www.facebook.com/jean.software
- }
- procedure TForm1.EchhiDesu;
- begin
- Edit1.Clear;
- Edit2.Clear;
- Edit3.Clear;
- Edit4.Clear;
- end;
- procedure TForm1.FormShow(Sender: TObject);
- begin
- EchhiDesu;
- Edit1.SetFocus;
- end;
- procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
- begin
- if not (key in['0'..'9',#8]) then key:= #0;
- end;
- procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
- begin
- if not (key in['A'..'Z','a'..'z',#8]) then key:= #0;
- end;
- procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
- begin
- if not (key in['0'..'9','A'..'Z','a'..'z',#8]) then key:= #0;
- end;
- procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
- begin
- if not (key in[#1..#8,#11..#27,#33..#47,#58..#64,#91..#96,#123..#127,#8]) then key:= #0;
- end;
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- EchhiDesu;
- Edit1.SetFocus;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement