Delphi控件源码

开发平台：

Delphi

UfrmShell.pas：源码内容

							unit UfrmShell;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TfrmShell = class(TForm)
    Memo1: TMemo;
    procedure Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Memo1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmShell: TfrmShell;
implementation
{$R *.dfm}
procedure TfrmShell.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=8 then begin
   key:=0;
end;
if key=13 then begin
    memo1.Text:=  memo1.Text + #13#10;
    exit;
end;
   if key=189 then begin
    memo1.Text:=  memo1.Text + '-';
    exit;
end;
     memo1.Text:=  memo1.Text + chr(key);
showmessage(inttostr(key));
end;
procedure TfrmShell.Memo1Change(Sender: TObject);
begin
 Memo1.SelLength:=length(Memo1.Text);
 Memo1.SelStart   :=length(memo1.Text);
end;
end.

						