var
EditStyle: integer;
begin
EditStyle := GetWindowLong(Edit1.Handle, GWL_STYLE);
EditStyle := EditStyle and (not ES_LEFT) and (not ES_CENTER) or ES_RIGHT;
SetWindowLong(Edit1.Handle, GWL_STYLE, EditStyle);
end;
EditStyle: integer;
begin
EditStyle := GetWindowLong(Edit1.Handle, GWL_STYLE);
EditStyle := EditStyle and (not ES_LEFT) and (not ES_CENTER) or ES_RIGHT;
SetWindowLong(Edit1.Handle, GWL_STYLE, EditStyle);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货