selectvideo.pas

这是一个delphi源码

unit SelectVideo;

interface

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

type
  TSelectVideoForm = class(TForm)
    FeteSelect: TFeteSelect;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FeteSelectReturnSelect(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FeteSelectAddNewMusic(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    IsShow:Boolean;
  end;

var
  SelectVideoForm: TSelectVideoForm;

implementation

uses Data, DBMain, DBGQ, CurMusic;

{$R *.DFM}

procedure TSelectVideoForm.FormCreate(Sender: TObject);
begin
  Top:=0;
  Left:=181;
  IsShow := false;
end;

procedure TSelectVideoForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  IsShow := false;
end;

procedure TSelectVideoForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=VK_UP then
  FeteSelect.PriorItem;
if Key=VK_DOWN then
  FeteSelect.NextItem;
if Key=33 then
  FeteSelect.PriorPage;
if Key=34 then
  FeteSelect.NextPage;
if (Key=$31) or (Key=VK_NUMPAD1) then
  FeteSelect.SelItem(1);
if (Key=$32) or (Key=VK_NUMPAD2) then
  FeteSelect.SelItem(2);
if (Key=$33) or (Key=VK_NUMPAD3) then
  FeteSelect.SelItem(3);
if (Key=$34) or (Key=VK_NUMPAD4) then
  FeteSelect.SelItem(4);
if (Key=$35) or (Key=VK_NUMPAD5) then
  FeteSelect.SelItem(5);
if (Key=$36) or (Key=VK_NUMPAD6) then
  FeteSelect.SelItem(6);
if (Key=$37) or (Key=VK_NUMPAD7) then
  FeteSelect.SelItem(7);
if (Key=$38) or (Key=VK_NUMPAD8) then
  FeteSelect.SelItem(8);
if (Key=72) or (Key=13) then
  FeteSelect.AgreeCurSel;
if (Key=70) then
    Close;
end;

procedure TSelectVideoForm.FeteSelectReturnSelect(Sender: TObject);
begin
Close;
end;

procedure TSelectVideoForm.FormShow(Sender: TObject);
begin
  //FeteSelect.CurMusicForm := CurMusicForm;
  FeteSelect.Init;
  IsShow := true;
end;

procedure TSelectVideoForm.FeteSelectAddNewMusic(Sender: TObject);
begin
  DBMainForm.RealMagic.stop;
end;

end.