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

runlwx 发布于 2013-10-23 16:17， 2501 次点击

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.

1 回复

lackiss2013-10-30 01:02

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.

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

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