コンポーネント上のボタンが押されたとき (ID:38527)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんなの？ type TMyPanel=class(TPanel) protected FButtonA, FButtonB: TButton; FButtonAClick, FButtonBClick: TNotifyEvent; public constructor Create(AOwner: TComponent); override; protected procedure ButtonAClickEvent(Sender: TComponent); procedure ButtonBClickEvent(Sender: TComponent); published property ButtonAClick: TNotifyEvent read FButtonAClick write FButtonAClick property ButtonBClick: TNotifyEvent read FButtonBClick write FButtonBClick end; constructor TMyPanel.Create(AOwner: TComponent); begin inherited Craete(AOwner); FButtonA := TButton.Create(Self); FButtonA.OnClick := ButtonAClickEvent; FButtonB := TButton.Create(Self); FButtonB.OnClick := ButtonBClickEvent; end; procedure TMyPanel.ButtonAClickEvent(Sender: TComponent); begin if Assigned(FButtonAClick) then FButtonAClick(Self{or Sender}); end; procedure TMyPanel.ButtonBClickEvent(Sender: TComponent); begin if Assigned(FButtonBClick) then FButtonBClick(Self{or Sender}); end; コンポーネントとして、ボタンクリックイベント出さなくていいのかな？