为什么Edit没有Alignment

Question

我看帮助上面明明写着有的，为什么delphi6里没有

Answer 1

其实可以自己做一个，我给你个吧，接着…………：）//----------------------------------------------------
unit WCAlignEdit;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TWCAlignEdit = class(TEdit)
  private
    { Private declarations }
    FAlignment : TAlignment;
  protected
    { Protected declarations }
    procedure SetAlignment(Value: TAlignment);
  public
    { Public declarations }
    procedure CreateParams(var Params : TCreateParams); override;
  published
    { Published declarations }
    property Alignment: TAlignment read FAlignment write SetAlignment
      default taLeftJustify;
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Samples', [TWCAlignEdit]);
end;procedure TWCAlignEdit.CreateParams(var Params : TCreateParams);
begin
  inherited CreateParams(Params);
  case FAlignment of
    taRightjustify: params.style := params.style or es_right;
    taLeftjustify : params.style := params.style or es_left;
    taCenter      : params.style := params.style or es_center;
  end;
end;procedure TWCAlignEdit.SetAlignment;
begin
  if FAlignment <> Value then
  begin
    FAlignment := Value;
    RecreateWnd;
  end;
end;
end.

Answer 2

Edit 是单行文本控件，怎么 Align 呀？用 Memo 吧！

Answer 3

SetWindowLong(Edit1.Handle, GWL_STYLE,
    GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_RIGHT);