Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
KPrevF.pas
Package: delphi.rar [view]
Upload User: fh681027
Upload Date: 2022-07-23
Package Size: 1959k
Code Size: 1k
Category:
Delphi VCL
Development Platform:
Delphi
- unit KPrevF;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ExtCtrls;
- type
- TForm1 = class(TForm)
- RadioPreview: TRadioGroup;
- Edit1: TEdit;
- Edit2: TEdit;
- Edit3: TEdit;
- procedure RadioPreviewClick(Sender: TObject);
- procedure FormKeyPress(Sender: TObject; var Key: Char);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.DFM}
- procedure TForm1.RadioPreviewClick(Sender: TObject);
- begin
- KeyPreview := RadioPreview.ItemIndex <> 0;
- end;
- procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
- begin
- case RadioPreview.ItemIndex of
- 1: // Enter = Tab
- if Key = #13 then
- begin
- Key := #0;
- Perform (CM_DialogKey, VK_TAB, 0);
- end;
- 2: // Type in Caption
- begin
- if Key = #8 then // backspace: remove last char
- Caption := Copy (Caption, 1,
- Length (Caption) - 1)
- else if Key = #13 then // enter: stop operation
- RadioPreview.ItemIndex := 0
- else // anything else: add character
- Caption := Caption + Key;
- Key := #0;
- end;
- 3: // Skip vowels
- if Key in ['a', 'e', 'i', 'o', 'u',
- 'A', 'E', 'I', 'O', 'U'] then
- Key := #0;
- end;
- end;
- end.