delphi新手求解释getwindowlong函数以及一下的例子 - Delphi论坛

编程论坛 → 开发语言 → 『 Delphi论坛』 → delphi新手求解释getwindowlong函数以及一下的例子

标题：delphi新手求解释getwindowlong函数以及一下的例子

只看楼主

runlwx

等　级：新手上路
帖　子：12
专家分：0
注　册：2013-10-17
结帖率：50%

楼主

问题点数：0 回复次数：1

delphi新手求解释getwindowlong函数以及一下的例子

procedure TForm2.FormCreate(Sender: TObject);
var
wl:integer;
begin
wl:=getwindowlong(edit1.Handle,gwl_style);
setwindowlong(edit1.Handle,gwl_style,wl or es_number) ;
end;

end.

搜索更多相关主题的帖子: procedure　

2013-10-23 16:17

lackiss

等　级：论坛游民
帖　子：8
专家分：21
注　册：2013-10-29

第 2 楼

得分:0

procedure TForm2.FormCreate(Sender: TObject);
var
wl:integer; //定义int型变量
begin
wl:=getwindowlong(edit1.Handle,gwl_style); 获取相关窗口的wl
setwindowlong(edit1.Handle,gwl_style,wl or es_number); 重新设置wl窗口风格wl or es_number 进行位或操作意思就是在本来的风格基础上加一个风格
end;

end.

2013-10-30 01:02

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-422398-1-1.html