procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited; //这个跟继承类重写方法有什么区别?override跟overload有什么区别?
with Params do begin
EXStyle := EXStyle or WS_EX_TOPMOST or WS_EX_NOACTIVATE; //才学下面两句不懂
wndParent := GetDesktopWindow;
end;
end;谢谢啊啊啊 啊啊 啊啊 啊
begin
inherited; //这个跟继承类重写方法有什么区别?override跟overload有什么区别?
with Params do begin
EXStyle := EXStyle or WS_EX_TOPMOST or WS_EX_NOACTIVATE; //才学下面两句不懂
wndParent := GetDesktopWindow;
end;
end;谢谢啊啊啊 啊啊 啊啊 啊
begin
inherited; //表示继承祖先类的同名方法 //这个跟继承类重写方法有什么区别?
override跟overload有什么区别?
//override表示覆盖父类的方法
//overload表示重载同名方法,如:IntToStr
with Params do begin
EXStyle := EXStyle or WS_EX_TOPMOST or WS_EX_NOACTIVATE; //才学下面两句不懂
wndParent := GetDesktopWindow;
end;
end;
overload表示重载同名方法,但参数不能相同
EXStyle 那句,是设置窗体形态的,有很多参数可选
http://blog.csdn.net/bdmh/archive/2009/07/28/4387908.aspx