设置edit的alignment属性，结果造成光标消失，请朋友们尝试一下，共同讨论
procedure TForm1.FormCreate(Sender: TObject);
begin
  edit2.Alignment:=taRightJustify;
  edit2.Text:='￥0.00';
end;

procedure TForm1.Edit2Enter(Sender: TObject);
begin
  edit2.Text:='';
  edit2.Alignment:=taLeftJustify;
end;

procedure TForm1.Edit2Exit(Sender: TObject);
begin
  edit2.Alignment:=taRightJustify;
  edit2.Text:='￥0.00';
end;



[ 本帖最后由 csjn1 于 2012-3-7 21:35 编辑 ]