为什么Edit没有Alignment

[citytramper]

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

[wangchinaking]

其实可以自己做一个，我给你个吧，接着…………：）

//----------------------------------------------------
unit WCAlignEdit;

interface

uses
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;

implementation

procedure 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.

[CloneCenter]

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

[xzgyb]

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

[xrenwu]

good!