改变delphi中录入方向

来源:百度知道 编辑:UC知道 时间:2024/06/02 04:49:39
我用delphi编写的计算器当按数字时不是从右向左显示的,怎么改变顺序??

在formshow中添加下面语句就可以了:
procedure TForm1.FormShow(Sender: TObject);
begin
SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or ES_RIGHT);
end;

如果你使用的是TLabel的话 将Alignment 属性调整为 taRightJustify即可~