Question

Delphi中如何覆盖一个复合控件中的多个Button子控件的click方法？

type
TTest = class(TWinControl)
private
FButton1: TButton;
FButton2: TButton;
FButton3: TButton;//请问这三个子控件的click方法如何覆盖
{ Private declarations }
protected
procedure WMSIZE(var Message: TMessage);Message WM_SIZE;
{ Protected declarations }
public
Constructor Create(Owner: TComponent);override;
Destructor Destroy;override;
{ Public declarations }
published

{ Published declarations }
end;
如：
FButton1.click := Click1; FButton2.click := click2;
FButton3.click := click3;

Answer 1

FButton1.OnClick = FButton1Click;
FButton2.OnClick = FButton1Click;
FButton3.OnClick = FButton1Click;