jqph.pas

这是一个delphi源码

unit JQPH;

interface

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

type
  TJQPHForm = class(TForm)
    LeftImage: TImage;
    JQPHSelect: TJQPHSelect;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure JQPHSelectReturnSelect(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure JQPHSelectAddNewMusic(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    IsShow:Boolean;
  end;

var
  JQPHForm: TJQPHForm;

implementation

uses Data, DBMain, CurMusic;

{$R *.DFM}

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

procedure TJQPHForm.FormShow(Sender: TObject);
begin
DataMod.GQKDataSet.Close;
DataMod.GQKDataSet.SQL.Text:='select * from gqk order by jqph DESC,dbcs DESC';
DataMod.GQKDataSet.Open;
JQPHSelect.DataSet := DataMod.GQKDataSet;
//JQPHSelect.CurMusicForm := CurMusicForm;
JQPHSelect.Init;
IsShow := true;
end;

procedure TJQPHForm.JQPHSelectReturnSelect(Sender: TObject);
begin
Close;
end;

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

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

procedure TJQPHForm.JQPHSelectAddNewMusic(Sender: TObject);
begin
  DBMainForm.RealMagic.stop;
end;

end.