modaldword.pas

来自「不错的远程控制程序」· PAS 代码 · 共 63 行

unit ModalDWORD;

interface

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

type
  TDWORDModal = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button2: TButton;
    Button1: TButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DWORDModal: TDWORDModal;

implementation

{$R *.dfm}

procedure TDWORDModal.RadioButton1Click(Sender: TObject);
begin
  if not RadioButton1.Checked then Exit;
  Edit2.Text := IntToHex(StrToInt(Edit2.Text), 8);
end;

procedure TDWORDModal.RadioButton2Click(Sender: TObject);
begin
  if not RadioButton2.Checked then Exit;
  Edit2.Text := IntToStr(StrToInt('$' + Edit2.Text));
end;

procedure TDWORDModal.FormShow(Sender: TObject);
begin
SetWindowLong(Button1.Handle, GWL_STYLE, WS_CHILD or WS_VISIBLE or BS_FLAT);
SetWindowLong(Button2.Handle, GWL_STYLE, WS_CHILD or WS_VISIBLE or BS_FLAT);
end;

end.