createalign.pas

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

unit CreateAlign;

interface

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

type
  Tfrm_CreateAlign = class(TForm)
    rgHorizontal: TMyRadioGroup;
    rgVertical: TMyRadioGroup;
    btnOk: TMyAutoBitBtn;
    btnCancel: TMyAutoBitBtn;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

{var
  frm_CreateAlign: Tfrm_CreateAlign;}

implementation

{$R *.dfm}

procedure Tfrm_CreateAlign.FormCreate(Sender: TObject);
begin
  if GetACP=936 then
  begin
    self.Caption:='部件对齐方式';
    rgVertical.Caption:='垂直方向';
    rgHorizontal.Caption:='水平方向';
    with rgHorizontal.items do
    begin
      clear;
      append('&N没有改变');
      append('&L左边对齐');
      append('&C中间对齐');
      append('&R右边对齐');
      append('&S空格补齐');
      append('&W视窗中部');
    end;
    with rgVertical.items do
    begin
      clear;
      append('&g没有改变');
      append('&T顶部对齐');
      append('&e中间对齐');
      append('&B底部对齐');
      append('&q空格补齐');
      append('&W视窗中部');
    end;
  end else if GetACP=950 then
  begin
    self.Caption:='场ン癸霍よΑ';
    rgVertical.Caption:='