清空
D
e
m
o
Demo
Demo 组件中的内容
选中
D
e
m
o
Demo
Demo 中的属性
L
i
n
e
s
Lines
Lines,双击,清除里面的内容即可。
文本框右对齐
比如计算器上文本框上的数字要求显示在右边
procedure TForm1.FormShow(Sender: TObject);
begin
setwindowlong(edit1.Handle, GWL_STYLE, getwindowlong(edit1.Handle,GWL_STYLE)or Es_right);
end;