复合组件问题(在线等待,急救)(40分)

  • 主题发起人 主题发起人 qddmh
  • 开始时间 开始时间
Q

qddmh

Unregistered / Unconfirmed
GUEST, unregistred user!

我要编写一组件,由两个TLabel, 一个TPanel合成, 我想在此组件中
分别响应两个TLabel与TPanel的onClick事件以及此组件的onClick事件
我因怎样做??
如下:
TCCLabelPanel = class(TEmptyPanel)
private
FLabel: TLabel;
FPanel: TPanel;
FLabelClick: TNotifyEvent;
FPanelClick: TNotifyEvent;
function GetLabelStr: string;
procedure SetLabelStr(Value: string);
procedure Paint; override;
function PtInControl(AControl: TControl; P: TSmallPoint): boolean;
protected
procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
procedure wmSize(var Message: TMessage); message wm_size;
procedure wmMouseDown(var Msg: TWMMouse); message wm_LButtonDown;
public
Constructor Create(AOWner: TComponent); override;
Destructor Destroy; override;
published
property LabelStr: string read GetLabelStr write SetLabelStr;
property Height default 100;
property Width default 100;
property onClick;
property onLabelClick: TNotifyEvent read FLabelClick write FLabelClick;
property onPanelClick: TNotifyEvent read FPanelClick write FPanelClick;
end;

我想点击TLabel出发onLabelClick事件, TPanel触发onPanelClick事件, 其它
触发此组件的onclick事件,怎样做????
 
FLabel:=TLable.Create(Self);
FLabel.OnClick:=LabelClick;

procedure TCCLabelPanel.LabelClick(Sender: TObject);
begin
if Assigned(FOnLabelClick) then
FOnLabelClick(Sender)
end;

Panel类似
 
to LeeChange:
谢谢!
请收分!
 
那你到是快给呀.
 
接受答案了.
 

Similar threads

I
回复
0
查看
527
import
I
I
回复
0
查看
728
import
I
I
回复
0
查看
759
import
I
I
回复
0
查看
625
import
I
后退
顶部