ufrmshell.pas

来自「DarkMoon v4.11 (远程控制) 国外收集的代码,控件下载: ht」· PAS 代码 · 共 57 行

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.