dllformunit.pas

调用DLL中窗体相关源码

unit DLLFormUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls, DB, ADODB, Grids, DBGrids;

type
  TfrmDLLForm = class(TForm)
    DLLMainMenu: TMainMenu;
    m_DLLMenu: TMenuItem;
    mi_WhatName: TMenuItem;
    Panel1: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Btn_Default: TButton;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    ADOQuery1OrderNO: TWideStringField;
    ADOQuery1CustNO: TWideStringField;
    ADOQuery1OrderNumber: TSmallintField;
    ADOQuery1OrderMoney: TFloatField;
    ADOQuery1SoftNO: TWideStringField;
    ADOQuery1DeliverDate: TDateTimeField;
    ADOQuery1DeliverInstance: TBooleanField;
    ADOQuery1CustReceive: TBooleanField;
    ADOQuery1InvoiceInstance: TBooleanField;
    ADOQuery1InvDate: TDateTimeField;
    ADOQuery1InvMoney: TFloatField;
    ADOQuery1InvCustReceived: TBooleanField;
    ADOQuery1PaymentMode: TWideStringField;
    ADOQuery1PaymentDate: TDateTimeField;
    ADOQuery1ReceiveMoneyDate: TDateTimeField;
    ADOQuery1HandleMan: TWideStringField;
    procedure mi_WhatNameClick(Sender: TObject);
    procedure Btn_DefaultClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDLLForm: TfrmDLLForm;

implementation

{$R *.dfm}

procedure TfrmDLLForm.mi_WhatNameClick(Sender: TObject);
begin
  Application.MessageBox('你是谁啊!不知道你是谁','敬告,你要做一个文明的中国人');
end;

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

end.