谁用过TFlowChart?
里面一个类是这样定义的:
TdxFcItem = class(TPersistent)
private
FOwner: TdxCustomFlowChart;
FText: String;
FFont: TFont;
FRealFont: TFont;
FParentFont: Boolean;
FDestroying: Boolean;
FSelected: Boolean;
FRepainted: Boolean;
procedure OnFontChange(Sender: TObject);
procedure SetRealFont;
procedure SetFont(Value: TFont);
procedure SetParentFont(Value: Boolean);
procedure SetSelected(Value: Boolean);
protected
function SelList: TList; virtual; abstract;
procedure Changed;
procedure FontChanged; virtual;
procedure Invalidate; virtual; abstract;
procedure LoadFont(Stream: TStream);
procedure SaveFont(Stream: TStream);
procedure SetText(Value: String); virtual; abstract;
procedure ScaleFont;
property RealFont: TFont read FRealFont;
public
constructor Create(AOwner: TdxCustomFlowChart);
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
property Destroying: Boolean read FDestroying;
property Font: TFont read FFont write SetFont;
property Owner: TdxCustomFlowChart read FOwner;
property ParentFont: Boolean read FParentFont write SetParentFont;
property Selected: Boolean read FSelected write SetSelected;
property Text: String read FText write SetText;
end;然后TdxFcObject从这个类继承,添加上paint方法。
我想让这个类能实现hint的功能,也就是和Label, button这些都有的那种hint, showhint属性
我改怎样做呢?我试过CM_MouseEnter和CM_MOUSELEAVE,但是没有反应,我也不好把
TPersistent类改成TCustomControl,那样procedure Assign(Source: TPersistent); override;我就不知道怎么改了
里面一个类是这样定义的:
TdxFcItem = class(TPersistent)
private
FOwner: TdxCustomFlowChart;
FText: String;
FFont: TFont;
FRealFont: TFont;
FParentFont: Boolean;
FDestroying: Boolean;
FSelected: Boolean;
FRepainted: Boolean;
procedure OnFontChange(Sender: TObject);
procedure SetRealFont;
procedure SetFont(Value: TFont);
procedure SetParentFont(Value: Boolean);
procedure SetSelected(Value: Boolean);
protected
function SelList: TList; virtual; abstract;
procedure Changed;
procedure FontChanged; virtual;
procedure Invalidate; virtual; abstract;
procedure LoadFont(Stream: TStream);
procedure SaveFont(Stream: TStream);
procedure SetText(Value: String); virtual; abstract;
procedure ScaleFont;
property RealFont: TFont read FRealFont;
public
constructor Create(AOwner: TdxCustomFlowChart);
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
property Destroying: Boolean read FDestroying;
property Font: TFont read FFont write SetFont;
property Owner: TdxCustomFlowChart read FOwner;
property ParentFont: Boolean read FParentFont write SetParentFont;
property Selected: Boolean read FSelected write SetSelected;
property Text: String read FText write SetText;
end;然后TdxFcObject从这个类继承,添加上paint方法。
我想让这个类能实现hint的功能,也就是和Label, button这些都有的那种hint, showhint属性
我改怎样做呢?我试过CM_MouseEnter和CM_MOUSELEAVE,但是没有反应,我也不好把
TPersistent类改成TCustomControl,那样procedure Assign(Source: TPersistent); override;我就不知道怎么改了
解决方案 »
- 怎样中止嵌套的死循环?
- 急救:delphi 用PostMessage 跨进程发送packed record数据时,收到显示为空
- 我在Image1.OnMousuUp里写了一段代码
- listbox中的每一项显示一个值,实际取得一个值,如何作???
- 征集 Rave 5 D7 中交叉表的制作Demo
- htmlelement无法找到htmlelementevent连接点的问题!
- Delphi7用什么控件制作报表?
- 請教;real類型轉成string,string轉成real的函數
- 本人最近需要翻译一段C++语言的程序,可惜没学过C,各位帮我翻译一下,谢谢!
- 高分求救怎样调用report builder设计好的ppreport,并且用ppreviewer可以预览?
- 哪里有Ehlib3.0的汉化?
- 如何让我编写的Http服务器支持CGI
能不能在TdxFcItem中加入一个可以接收消息的对象呢?