delphi基础

清空 $Demo$ 组件中的内容

选中 $Demo$ 中的属性 $Lines$，双击，清除里面的内容即可。

文本框右对齐

比如计算器上文本框上的数字要求显示在右边

procedure TForm1.FormShow(Sender: TObject);
begin
  setwindowlong(edit1.Handle, GWL_STYLE, getwindowlong(edit1.Handle,GWL_STYLE)or Es_right);
end;