createsize.pas

类似Delphi Ide的对象查看器 可以在RUNTIME时使用

unit createsize;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, MyEdit, ExtCtrls, MyPanel, MyRadGrp,
  MyButton, MyAutoBtn;

type
  Tfrm_createsize = class(TForm)
    btnOk: TMyAutoBitBtn;
    btnCancel: TMyAutoBitBtn;
    rgWidth: TMyRadioGroup;
    rgHeight: TMyRadioGroup;
    ednWidth: TMyNumEdit;
    ednHeight: TMyNumEdit;
    procedure rgWidthClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

{var
  frm_createsize: Tfrm_createsize;}

implementation

{$R *.dfm}

procedure Tfrm_createsize.rgWidthClick(Sender: TObject);
begin
  ednWidth.Enabled:=rgWidth.ItemIndex=3;
  ednHeight.Enabled:=rgHeight.ItemIndex=3;
end;

procedure Tfrm_createsize.FormCreate(Sender: TObject);
begin
  if GetACP=936 then
  begin
    Self.Caption:='部件尺寸';
    rgWidth.Caption:='宽度';
    rgHeight.Caption:='高度';
    with rgWidth.Items do
    begin
      Clear;
      Append('&N没改变');
      Append('&S改变到最小');
      Append('&G改变到最大');
      Append('宽度:');
    end;
    with rgHeight.Items do
    begin
      Clear;
      Append('&C没改变');
      Append('&K改变到最小');
      Append('&L改变到最大');
      Append('高度:');
    end;
  end else if GetACP=950 then
  begin
    Self.Caption:='场ンへ