delphi edit 设置 右对齐 怎么设置

qq351317878

做计算器
新手不知道怎么弄

让输入的数字右对齐   怎么设置   :mad:

メ㊣逆ご帅☆

在BUTTON Click事件或者FormCreate事件或者editChange加入以下代码(其中一个加就行)
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_RIGHT);
例子：
procedure TForm1.Button1Click(Sender: TObject);
procedure TForm1.FormCreate(Sender: TObject);
begin
    SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or ES_RIGHT);
end;
ES_RIGHT表示右
对应的还有居中或者左。自己选