unit6.pas

来自「Prof DHTML Edit 2.0.3.7 for delphi」· PAS 代码 · 共 42 行

unit Unit6;

interface

uses
  Forms, StdCtrls, Controls, Classes, ExtCtrls;

type
  TFormInsertComment = class(TForm)
    ButtonOK: TButton;
    ButtonCancel: TButton;
    Bevel1: TBevel;
    Memo1: TMemo;
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormInsertComment: TFormInsertComment;

implementation

{$R *.dfm}

procedure TFormInsertComment.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #27 then
    Close
end;

procedure TFormInsertComment.FormShow(Sender: TObject);
begin
  ActiveControl := Memo1;
  Memo1.SelectAll
end;

end.