moveitem.pas

超级播放器 -- 软件特点 -- 功能齐全 操作简便 绿色环保

unit Moveitem;

interface

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

type
  TFrmMoveItem = class(TForm)
    OkBtn: TBitBtn;
    CancelBtn: TBitBtn;
    RowEdit: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Bevel1: TBevel;
    BeforeChb: TRadioButton;
    AfterChb: TRadioButton;
    procedure RowEditKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RowEditChange(Sender: TObject);
    procedure BeforeChbClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    selRow:integer;
    aftersign:string;
    MaxNum:integer;
    line1,line2:integer;
  end;

var
  FrmMoveItem: TFrmMoveItem;

implementation

{$R *.dfm}

procedure TFrmMoveItem.RowEditKeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['0'..'9']) then
   if (key<>chr(vk_back)) and (key<>chr(vk_tab)) and (key<>chr(vk_delete)) then
     key:=#0;
end;

procedure TFrmMoveItem.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if ModalResult =mrok then
  begin
     selRow:= strtointdef(RowEdit.text,-1);
     if AfterChb.checked then
       aftersign:='后面'
     else
       aftersign:='前面';
  end;
end;

procedure TFrmMoveItem.RowEditChange(Sender: TObject);
var inputNum:integer;   //输入的数字
begin
  inputNum:=strtointdef(RowEdit.text,-1);
  if (inputNum<=0) or (inputnum>MaxNum)  then
    okbtn.Enabled :=false
  else
  begin
    if ((inputnum-1>=line1-1) and (inputnum-1<=line2) and (AfterChb.Checked))
      or ((inputnum-1>=line1) and (inputnum-1<=line2+1) and (BeforeChb.Checked)) then
      okbtn.Enabled :=false
    else
       okbtn.Enabled:=true;
  end;
end;

procedure TFrmMoveItem.BeforeChbClick(Sender: TObject);
begin
  RowEdit.SetFocus;
  RowEditChange(nil);
end;

end.