Question

delphi里的edit框中如何让数字从右往左输入啊

我做的是一个计算器小软件

Answer 1

EDIT本身没有这个功能，可以变通一点，设置edit右对齐，然后每次输入后把光标移动到最左则，然后通过KeyPress控制只允许输出数字，代码如下：

procedure TForm1.FormCreate(Sender: TObject);
var
  chargerstyle:integer;
begin
  chargerstyle:=GetWindowLong(remark.Handle,GWL_STYLE);
  chargerstyle:=chargerstyle and(not ES_LEFT)and(not ES_CENTER)or ES_RIGHT;
  SetWindowLong(remark.Handle,GWL_STYLE,chargerstyle);
end;

procedure TForm1.remarkKeyPress(Sender: TObject; var Key: Char);
begin
  if not(key  in['0'..'9',#8]) then  begin
    key:=#0;
  end;
end;

procedure TForm1.remarkChange(Sender: TObject);
begin
  remark.SelStart:=0;
end;

效果如下：

Answer 2

程序TForm1.Edit1KeyPress（发件人：TObject的; VAR键：夏亚）;
开始
如果['一'..'Z'，'A'..'Z']，然后
应用的关键。的MessageBox（'信'，'提示'，MB_OK）;
如果key> CHAR（128），然后
application.MessageBox（'人物'，'提示'，MB_OK）;

末;

追问

并不能懂啊。。求详细点！谢谢