TEasyCustomForm = class(TCustomForm)
protected
property Action;
property ActiveControl;
property Align;
property Anchors;
property AutoScroll;
property AutoSize;
property BiDiMode;
property BorderIcons;
property BorderStyle;
property BorderWidth;
property Caption;
property ClientHandle;
property ClientHeight;
property ClientWidth;
property Color;
property Constraints;
property Ctl3D;
property DefaultMonitor;
property Enabled;
property ParentFont default False;
property Font;
property FormStyle;
property Height;
property HelpFile;
property HorzScrollBar;
property Icon;
property KeyPreview;
property Menu;
property OldCreateOrder;
property ObjectMenuItem;
property ParentBiDiMode;
property PixelsPerInch;
property PopupMenu;
property Position;
property PrintScale;
property Scaled;
property ShowHint;
property VertScrollBar;
property Visible;
property Width;
property WindowState;
property WindowMenu;
property OnActivate;
property OnCanResize;
property OnClick;
property OnClose;
property OnCloseQuery;
property OnConstrainedResize;
property OnContextPopup;
property OnCreate;
property OnDblClick;
property OnDestroy;
property OnDeactivate;
property OnDockDrop;
property OnDockOver;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnGetSiteInfo;
property OnHide;
property OnHelp;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnPaint;
property OnResize;
property OnShortCut;
property OnShow;
end;
protected
property Action;
property ActiveControl;
property Align;
property Anchors;
property AutoScroll;
property AutoSize;
property BiDiMode;
property BorderIcons;
property BorderStyle;
property BorderWidth;
property Caption;
property ClientHandle;
property ClientHeight;
property ClientWidth;
property Color;
property Constraints;
property Ctl3D;
property DefaultMonitor;
property Enabled;
property ParentFont default False;
property Font;
property FormStyle;
property Height;
property HelpFile;
property HorzScrollBar;
property Icon;
property KeyPreview;
property Menu;
property OldCreateOrder;
property ObjectMenuItem;
property ParentBiDiMode;
property PixelsPerInch;
property PopupMenu;
property Position;
property PrintScale;
property Scaled;
property ShowHint;
property VertScrollBar;
property Visible;
property Width;
property WindowState;
property WindowMenu;
property OnActivate;
property OnCanResize;
property OnClick;
property OnClose;
property OnCloseQuery;
property OnConstrainedResize;
property OnContextPopup;
property OnCreate;
property OnDblClick;
property OnDestroy;
property OnDeactivate;
property OnDockDrop;
property OnDockOver;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnGetSiteInfo;
property OnHide;
property OnHelp;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnPaint;
property OnResize;
property OnShortCut;
property OnShow;
end;
解决方案 »
- 求高手指导SQL新建表为什么不能编译!!!
- 请教高手delphi开发的程序使用输入法超级奇怪问题
- delphi中的adoquery总是报错
- 求救 怎样用delphi编写一个实现登陆的控件
- 如何自制目录(及目录中包含的所有文件)
- 关于在自定义控件TPanel中添加一个DBGrid控件,如何响应cellclick
- 求助:pascal,定义二维数组出现的问题
- 高手们:图象文件是如何切割成,又如何合成一副图象的呢(比如BMP)?
- 招聘有经验程序员,工作地点:浙江嘉兴
- 数据库编程,显示数据您直接用数据显示控件(DBGrid等)还是用StringGrid?
- 做点贡献
- 在Delphi2006即将发布之际,大家来灌灌水,我先来谈点对未来Delphi发展的希望(散分)
private 中的私有属性,到了这个子类,就定义到 protected, 也就是说,公开给自己的子类可用
如TFORM中的
published
property Color;
继承TCustomForm
public
property Color nodefault;
最终继承自TControl
Protect
property Color: TColor read FColor write SetColor stored IsColorStored default clWindow;
这样就有定义类型了.Color属性属于TColor类,给它赋值时调用SetColor函数.读值的取FColor的值读取.
如果你不是写component完全没有这个必要。
在子类里面公布父类的东东。类型在父类里面已经定义好了。
上面的这个问题是在学习 easyNSE过程中产生的,对各位高手来说肯定不值一提!