delhpi7第五课 计算器中有些代码不是很清楚什么意思 求解

江上客-无类

    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_RIGHT);
  Edit1.Invalidate;
end;

看了介绍说是 windows的 一个 api 接口  看了百度介绍写了很长 但还是没有理解这 东西到底是干什么的 怎么用
那位大侠能用 简单的 给讲述一下他的用途和 用法?
似乎是改变窗口内容初始的显示的位置?

游客，如果您要查看本帖隐藏内容请回复

江上客-无类

顶顶待复.....................

aminghanhua

SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_RIGHT);
//SetWindowLong修改制定窗口的一个属性
//Edit1.Handle标识出该窗口的属的窗口类为Edit1
//GWL_STYLE设置新的窗口风格
//第三个参数为指定窗口风格的替换值，其中GetWindowLong(Edit1.Handle, GWL_STYLE)  获取指定窗口的类Edit1的窗口风格。ES_LEFT为左对齐，ES_CENTER为居中，ES_RIGHT为居右
  Edit1.Invalidate;//重绘Edit1

小子驾到

FormCreate  创建

江上客-无类

小子驾到 发表于 2016-10-8 08:50
FormCreate  创建

感谢回复～

江上客-无类

aminghanhua 发表于 2016-9-30 14:53
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_RIGHT);
//SetWi ...

十分感谢耐心细致的解答～                     



Edit1.Invalidate;//重绘Edit1  这句在应用的时候就比较奇葩了
我不明就里的时候完全照着抄上去 然后运行就报错  给他屏蔽了就好一点

如果是自己手动输入的代码 没有通过delphi的交互界面 生成的那种 我看教程上说刷新才能生效
但如何刷新呢
我选了重建bluit 什么的 也不见有效 是按什么按钮么？