generalformunit.pas

来自「Delphi窗体动态库,可对窗体各类资源进行仿问。」· PAS 代码 · 共 38 行

unit GeneralFormUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;

type
  TfrmGeneralForm = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Btn_Default: TButton;
    DLLMainMenu: TMainMenu;
    m_DLLMenu: TMenuItem;
    mi_WhatName: TMenuItem;
    procedure Btn_DefaultClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGeneralForm: TfrmGeneralForm;

implementation

{$R *.dfm}

procedure TfrmGeneralForm.Btn_DefaultClick(Sender: TObject);
begin
  Application.MessageBox('应该可以在Edit框中按回车可以弹出这段对话','你说对不对');
end;

end.