怎么重载CreateParams函数（在线等待）高手请进100！！！！！！！！！！！

joshstone 2002-07-13 05:29:48

怎么重载CreateParams

...全文

41 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

he_Fly 2002-07-13

打赏
举报

同 pazee(耙子)

huzhangyou 2002-07-13

打赏
举报

learning.....................................

Lo 2002-07-13

打赏
举报

同意楼上

耙子 2002-07-13

打赏
举报

给你个例子

class PACKAGE TREdit : public TEdit
{
private:
protected:
virtual void __fastcall CreateParams(TCreateParams& Params);
public:
__fastcall TREdit(TComponent* Owner);
__published:
};

void __fastcall TREdit::CreateParams(TCreateParams& Params)
{
TEdit::CreateParams(Params); // 调用原来的
Params.Style = Params.Style | ES_RIGHT;// ES_MULTILINE;
}

本文介绍几个Delphi MDI应用程序的编程技巧，虽然纯属技巧，但是本文的方法在正常编程时，通常会被编译器认为是错误的或是违背编程环境缺省许可值的。不过有时为了一些特殊的用途或特殊的视觉效果，按下述的方法一试，可以在明知不可违而违之的情况下，得到很好的结果。下述各示例均在Delphi6、Windows2000下完成，对涉及的控件命名是任意的，仅为方便说明问题。

//CreateParams 背景透明 protected override CreateParams CreateParams { get { CreateParams cp = base.CreateParams; cp.ExStyle |= 0x00000020; //WS_EX_TRANSPARENT return cp; } } LineColor 设置颜色 LineHeight 设置线宽 LineDirection 设置倾斜方向

delphi无标题窗体（borderstyle=bsnone）默认没有边框，也无法拖拽必变窗体大小，本资源为无标题窗体加边框并可拖拽调整大小

一种方法是可以在窗体的属性面板将窗体的 ControlBox属性设置为false，或者在窗体的构造函数中这样写：代码如下:public Form1(){InitializeComponent();this.ControlBox = false; // 设置不出现关闭按钮} 不过这样做的话，会连同最小化和最大化按钮都给弄掉了，所以，如果你想只想让关闭按钮不起作用，然后保留最小化、最大化的话，就重写窗体的CreateParams方法：代码如下://禁用窗体的关闭按钮private const int CP_NOCLOSE_BUTTON = 0x200;protected over

一种方法是可以在窗体的属性面板将窗体的 ControlBox属性设置为false，或者在窗体的构造函数中这样写：代码如下:public Form1(){InitializeComponent();this.ControlBox = false; // 设置不出现关闭按钮} 不过这样做的话，会连同最小化和最大化按钮都给弄掉了，所以，如果你想只想让关闭按钮不起作用，然后保留最小化、最大化的话，就重写窗体的CreateParams方法：代码如下://禁用窗体的关闭按钮 private const int CP_NOCLOSE_BUTTON = 0x200;protected