上贴中的问题已经解决。
第二个问题。
现有一个自制控件TMyBevel,从TBevel继承下来,想给它增加一个属性Flag:Boolean,一个事件OnFlagChange。当给TMyBevel的Flag赋值的时候(从True到False,或者从False到True),能够触发这个OnFlagChange事件。请给出源代码。多谢。
第二个问题。
现有一个自制控件TMyBevel,从TBevel继承下来,想给它增加一个属性Flag:Boolean,一个事件OnFlagChange。当给TMyBevel的Flag赋值的时候(从True到False,或者从False到True),能够触发这个OnFlagChange事件。请给出源代码。多谢。
解决方案 »
- 两层还是三层?
- GLScene帮助,中英文对照
- DELPHI一个BUG的发现,谁能解决?
- 我在使用DLL的时候,调用里面的一个窗体,会在任务栏中显示,怎样不显示吗?
- 找了份兼职,工控开发,从来没有涉及过,要学习些什么呢?
- 问个菜问题,Delphi中怎样删除文件。
- (在线等待!)古怪的问题!工程文件无法保存,详情请看!
- 请问怎样同时虚拟 Shift键跟Tab键?(特急:解决马上给分)
- 请教下如何导出dll中常量
- 在delphi中,使用有参数的adostoreprocedure时,只能够静态的在编译时给指定函数名吗?
- 怎样能将'0100'看作是100?
- TSocketServer,TClientSocket难题
TMyBevel = class(TBevel)
private
FOnFlagChange: TNotifyEvent;
FFlag: Boolean;
procedure SetFlag(const Value: Boolean);
published
property OnFlagChange: TNotifyEvent read FOnFlagChange write FOnFlagChange;
property Flag: Boolean read FFlag write SetFlag;
end;{ TMyBevel }procedure TMyBevel.SetFlag(const Value: Boolean);
begin
if FFlag = Value then Exit;
FFlag := Value;
if Assigned(FOnFlagChange) then FOnFlagChange(Self);
end;