delphi edit 设置 右对齐 怎么设置
做计算器新手不知道怎么弄
让输入的数字右对齐 怎么设置 :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表示右
对应的还有居中或者左。自己选
页:
[1]