uinformation.pas

一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件

unit uInformation;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ExtCtrls, StdCtrls, RzEdit, RzPanel,ImgList,TBXDkPanels;

type
  TInffrm = class(TForm)
    RzPanel1: TRzPanel;
    memmsg: TRzMemo;
    InfImg: TImage;
    pnTitle: TRzPanel;
    ImageList1: TImageList;
    TBXButton1: TTBXButton;
    TBXButton2: TTBXButton;
    procedure FormCreate(Sender: TObject);
    procedure TBXButton2Click(Sender: TObject);
  private
    FImageIndex: integer;
    fOldX,fOldY:integer;
    procedure SetImageIndex(const Value: integer);
    procedure pnTitleMouseMove(Sender:TObject;Shift: TShiftState; X, Y: Integer);
    procedure pnTitleMouseDown(Sender: TObject; Button: TMouseButton;
                Shift: TShiftState; X, Y: Integer);
    { Private declarations }
  public
    { Public declarations }
    property ImageIndex:integer read FImageIndex write SetImageIndex;
  end;

implementation

{$R *.dfm}

procedure TInffrm.SetImageIndex(const Value: integer);
var
  BitMap:TBitMap;
begin
  BitMap:=TBitMap.Create;
  try
    Imagelist1.GetBitmap(Value,Bitmap);
    InfImg.Picture.Bitmap.Assign(Bitmap);
  finally
    Bitmap.Free;
  end;
  FImageIndex := Value;
end;

procedure TInffrm.FormCreate(Sender: TObject);
begin
  pnTitle.OnMouseMove:=pnTitleMouseMove;
  pnTitle.OnMouseDown:=pnTitleMouseDown; 
end;

procedure TInffrm.pnTitleMouseMove(Sender:TObject;Shift: TShiftState; X, Y: Integer);
var
  fNewPoint:TPoint;
begin
  if HiWord(GetAsyncKeyState(VK_LBUTTON))>0 then
  begin
    fNewPoint:=Point(left+x-fOldx,top+y-fOldy);
    SetBounds(fNewpoint.X,fNewpoint.Y,Width,Height);
  end;
end;

procedure TInffrm.pnTitleMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbLeft then
  begin
    fOldX:=x;
    FOldY:=y;
  end;
end;

procedure TInffrm.TBXButton2Click(Sender: TObject);
begin
  close;
end;

end.