转 Dll创建一个"日历"窗体(一)

首先点击File->New->Other-> Dynamic Link Libary

 

把工程文件保存为:CalendarLib.pas 再创建一个Form并放入一个TMonthCalendar控件

borderStyle属性设为:bsToolWindow

保存为 DllFormUnit.pas

 

?

unit DllFormUnit;    interface    uses    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,    Dialogs, ComCtrls;    type    TDllForm = class (TForm)      MonthCalendar1: TMonthCalendar;      procedure MonthCalendar1Click(Sender: TObject);    private      { Private declarations }    public      { Public declarations }    end ;    var    DllForm: TDllForm;

?

// 供外部调用函数

?

function ShowCalendar(AHandle: THandle;ACaption: String ): PChar ;stdcall;

?

implementation    {$R *.dfm} function ShowCalendar(AHandle: THandle;ACaption: String ): PChar ; var   DllForm: TDllForm; begin    //复制应用程序的句柄给Dll    //Dll中Application对象与调用它的应用程序是分离的,为使Dll中的窗体真正的成    //为应用程序模式窗体,必须将应用程序的句柄赋给Dll的Application.Handle属性    //必须确保AHandle句柄不为nil,否则出现无法预料的错误    Application . Handle := AHandle;    DlLForm := TDllForm . Create(Application);    try       DllForm . Caption := ACaption;       DllForm . ShowModal;       Result := PChar (DateToStr(DllForm . MonthCalendar1 . Date));    finally       DllForm . Free;    end ; end ;    procedure TDllForm . MonthCalendar1Click(Sender: TObject); begin    Close; end ;    end .

　CalendarLib.pas

?

library CalendarLib;    uses    SysUtils,    Classes,    DllFormUnit in 'DllFormUnit.pas' {DllForm} ;    {$R *.res} exports    ShowCalendar; begin end .

　　

　

主窗体设计

MainFormUnit.pas文件

unit MainFormUnit;

interface

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

type
  TShowCalendar = function (AHandle: THandle;ACaption: String):PChar;stdcall;

  TMainForm = class(TForm)
    btnShowCalendar: TButton;
    lblDate: TLabel;
procedure btnShowCalendarClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.btnShowCalendarClick(Sender: TObject);
var
 ShowCalendarForm: TShowCalendar;
 libHandle: THandle;
begin
   libHandle := LoadLibrary('CalendarLib.dll');
try
      //是否读取成功
if libHandle = 0 then
raise Exception.Create('加载CalendarLib.dll失败');
       //读取函数方法地址
       @ShowCalendarForm := GetProcAddress(LibHandle,'ShowCalendar');
       //读取是否成功
if not (@ShowCalendarForm = nil) then
begin  
          lblDate.Caption :=ShowCalendarForm(Application.Handle,'选择日历');
end
else 
        RaiseLastWin32Error;
finally

     //释放Dll     

     FreeLibrary(LibHandle);

复制代码

DFM文件

object MainForm: TMainForm
  Left = 0
  Top = 0
  Caption = 'MainForm'
  ClientHeight = 202
  ClientWidth = 447
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
object lblDate: TLabel
    Left = 119
    Top = 45
    Width = 98
    Height = 13
    Caption = #26085#26399':'
end
object btnShowCalendar: TButton
    Left = 16
    Top = 40
    Width = 97
    Height = 25
    Caption = #26174#31034#26085#21382#31383#20307
    TabOrder = 0
    OnClick = btnShowCalendarClick
end
end

复制代码

 

 

运行结果:

 

 

 

 

转载于:https://www.cnblogs.com/leonkin/archive/2012/02/21/2361356.html