mainfrm.pas

关于利用DELPHI来进行企业级方案解决的著作的附书源码

unit MainFrm;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Splitter1: TSplitter;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Splitter1Moved(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  CurImage: Integer;
  BMPs: Array[1..5] of TBitmap;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var 
 S : string; 
begin
 { S字符串用来保存应用程序的路径 }
  S:= ExtractFilePath(Application.ExeName);
 { 初始化幻灯片数组，最后必须在OnDestroy事件句柄中得到释放 }
  BMPs[1] := TBitmap.Create;
  BMPs[1].LoadFromFile(S + 'moon.bmp');
  BMPs[2] := TBitmap.Create;
  BMPs[2].LoadFromFile(S + 'desert.bmp');
  BMPs[3] := TBitmap.Create;
  BMPs[3].LoadFromFile(S + 'mountain.bmp');
  BMPs[4] := TBitmap.Create;
  BMPs[4].LoadFromFile(S + 'sea.bmp');
  BMPs[5] := TBitmap.Create;
  BMPs[5].LoadFromFile(S + 'autumn.bmp');
  CurImage := 1;
  Image2.Picture.Bitmap := BMPs[1];
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  I: Integer;
begin
  { 释放幻灯片数组 }
  for I := 1 to 5 do
    BMPs[I].Free;
end;

procedure TForm1.Splitter1Moved(Sender: TObject);
begin
  { 检查百叶窗是否已经拉下 }
  if Image2.Height <= 1 then
  begin
    { 百叶窗已经拉下，更换当前图片 }
    Inc(CurImage);
    if CurImage = 6 then
       CurImage := 1;
    Image2.Picture.Bitmap := BMPs[CurImage];
  end;
end;


end.