コンポーネント上のボタンが押されたとき (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;

コンポーネントとして、ボタンクリックイベント出さなくていいのかな？

←解決時は質問者本人がここをチェックしてください。

戻る