createorder.pas

来自「类似Delphi Ide的对象查看器 可以在RUNTIME时使用」· PAS 代码 · 共 50 行

unit CreateOrder;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, MyLstBox, MyButton, MyAutoBtn, EasySize;

type
  Tfrm_CreateOrder = class(TForm)
    btnOk: TMyAutoBitBtn;
    btnCancel: TMyAutoBitBtn;
    spbMoveUp: TMySpeedButton;
    spbMoveDown: TMySpeedButton;
    lstComponents: TMyListBox;
    procedure FormCreate(Sender: TObject);
    procedure spbMoveUpClick(Sender: TObject);
    procedure spbMoveDownClick(Sender: TObject);
    procedure lstComponentsDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure lstComponentsDragDrop(Sender, Source: TObject; X,
      Y: Integer);
    procedure lstComponentsStartDrag(Sender: TObject;
      var DragObject: TDragObject);
  private
    FDragIndex: Integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_CreateOrder: Tfrm_CreateOrder;

implementation

{$R *.dfm}

procedure Tfrm_CreateOrder.FormCreate(Sender: TObject);
begin
  if GetACP=936 then
  begin
    Self.Caption:='部件顺序编辑器';
    spbMoveUp.Hint:='顺序上移';
    spbMoveDown.Hint:='顺序下移';
    btnOk.Hint:='确定退出';
    btnCancel.Hint:='取消退出';
  end else if GetACp=950 then
  begin
    Self.Caption:='场ン抖