如题。希望给出相应的代码(越简单越好)或相关的电子书籍或文章!
谢谢~~

解决方案 »

  1.   

    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, jpeg, ExtCtrls;type
      TForm1 = class(TForm)
        Button1: TButton;
        Image1: TImage;
        Label1: TLabel;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;
      procedure  ShowAboutDlg;export;
    implementation{$R *.dfm}procedure ShowAboutDlg;
    begin
      Form1:=TForm1.Create(Application);
      Try
          Form1.ShowModal;
           
      finally
           Form1.Free;
      end;
    end;
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    close;
    end;end.
    //////////////////////////////////////library Project2;
    uses
      SysUtils,
      Classes,
      Unit1 in 'Unit1.pas' {Form1};{$R *.res}
     exports
      ShowAboutDlg;
    begin
    end.