我现在只是要更改comctrls.pas文件里TCustomRichedit里的内容而不是增加,也不是继承。然后做成新的richedit控件。所以我需要一个只包含和richedit控件有关的代码的comctrls.pas文件。我现在对df还不太了解,希望高手指点。我想知道那些是不需要的,要改些什么地方。如果有改好的文件请发一份给我也可以。如果要分可一加。
我的E-MAIL: [email protected]
我的E-MAIL: [email protected]
解决方案 »
- ClientDataSet截断数据??
- 大家有关于Delphi中的TUDPsocket的例子或者介绍什么的,能否指点一下,在网上找了好久都没找到,郁闷,回答者都有分
- 狂散分!!!来者人人有份(分)
- 谁有Onguard控件使用方面的中文使用资料,共享共享嘛!
- 如何在每次系统关机或重启动时执行相应的操作?
- 请问,如何把在DBMemo中输入的多行文本紧跟着打印在统计结果的后面?
- 关于Table过滤的问题
- 哪位朋友有专门输浮点数的控件啊?
- 怎样修改数据库?绝对给分!
- 请问在Delphi中如何象VC一样使用类模版?
- delphi 7zhong 中新的报表工具
- TXMLDocument读取loadfromfile('xmlfile.xml'),怎么读取结点信息?
然后就是CREATESUBCLASS过程。
ComCtrls;
type
TMyRichEdit = class(TCustomRichEdit)
protected
procedure CreateParams(var Params: TCreateParams);override;
procedure CreateSubClass(var Params: TCreateParams;
ControlClassName: PChar);
published
property Align;
property Alignment;
property Anchors;
property BiDiMode;
property BorderStyle;
property BorderWidth;
property Color;
property Ctl3D;
property DragCursor;
property DragKind;
property DragMode;
property Enabled;
property Font;
property HideSelection;
property HideScrollBars;
property ImeMode;
property ImeName;
property Constraints;
property Lines;
property MaxLength;
property ParentBiDiMode;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PlainText;
property PopupMenu;
property ReadOnly;
property ScrollBars;
property ShowHint;
property TabOrder;
property TabStop default True;
property Visible;
property WantTabs;
property WantReturns;
property WordWrap;
property OnChange;
property OnContextPopup;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnProtectChange;
property OnResizeRequest;
property OnSaveClipboard;
property OnSelectionChange;
property OnStartDock;
property OnStartDrag;
end;implementation{ TMyRichEdit }procedure TMyRichEdit.CreateParams(var Params: TCreateParams);
begin
inherited;end;procedure TMyRichEdit.CreateSubClass(var Params: TCreateParams;
ControlClassName: PChar);
begin
inherited;end;继承TCustomRichEdit,把TMyRichEdit当成TRichEdit一样用是否需要改TRichEditString取决于你是否需要修改TRichEditString如果需要的话,只需要生成一个新的TMyRichEditString类然后在TMyRichEdit里面重载Create方法,把TRichEditString.Create修改为TMyRichEditString.Create