jj.~pas

这是一个delphi源码

unit JJ;

interface

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

type
  TJJForm = class(TForm)
    LeftImage: TImage;
    ItemSelect: TItemSelect;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ItemSelectReturnSelect(Sender: TObject);
    procedure ItemSelectItemSelect(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JJForm: TJJForm;

implementation

uses Data, JJLL;

{$R *.DFM}

procedure TJJForm.FormShow(Sender: TObject);
begin
DataMod.JJDataSet.Open;
ItemSelect.Init;
end;

procedure TJJForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataMod.JJDataSet.Close;
Action:=caFree;
end;

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

procedure TJJForm.ItemSelectReturnSelect(Sender: TObject);
begin
Close;
end;

procedure TJJForm.ItemSelectItemSelect(Sender: TObject);
begin
JJLLForm:=TJJLLForm.Create(self);
JJLLForm.ShowModal;
end;

end.