itemselect.pas

vod点歌系统,DELPHI的通用软件 会有帮助

unit ItemSelect;

interface

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

type
  TItemSelect = class(TImage)
  private
    FCurPage:Integer;
    FItems:TStringList;
    FSelectImage:TImage;
    procedure FItemChange(Sender: TObject);
    { Private declarations }
  protected
    { Protected declarations }
  public
    property Items:TStrings read FItems write FItems;
    constructor Create(AOwner: TComponent); override;
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation
{$R ItemSelect.RES}

procedure FItemSelect.FItemChange(Sender: TObject);
begin
  FCurPage:=0;
end;
constructor TItemSelect.Create(AOwner: TComponent);
begin
  inherited;
  Picture.Bitmap.Handle:=LoadBitmap(Hinstance,'BACK');
  Width:=Picture.Bitmap.Width;
  Height:=Picture.Bitmap.Height;
  FSelectImage:=TImage.Create(self);
  FSelectImage.Picture.Bitmap.Handle:=LoadBitmap(Hinstance,'SELECT');
  FSelectImage.Width:=FSelectImage.Picture.Bitmap.Width;
  FSelectImage.Height:=FSelectImage.Picture.Bitmap.Height;
  FCurPage:=0;
  FItems:=TStringList.Create;
  FItems.OnChange:=FItemChange;
end;
procedure Register;
begin
  RegisterComponents('Samples', [TItemSelect]);
end;

end.