使用組件內的按鈕的Onclick事件

Question

我創建一個組件併爲其添加一個Tbutton。 現在我想爲我的Component創建OnClick事件，該事件在用戶在運行時單擊我的組件的Button時執行 我該怎麼做？

Answer 1

@ LU_RD的答案可能是你在找什麼。

我寫了一個較小的例子，應該與您所做的相似。

interface 

TMyComponent = class(TCustomControl) 
private 
    embeddedButton: TButton; 
    fOnButtonClick: TNotifyEvent; 
    procedure EmbeddedButtonClick(Sender: TObject); 
protected 
    procedure DoEmbeddedButtonClick; virtual; 
public 
    constructor Create(AOwner: TComponent); override; 
published 
    property OnButtonClick: TNotifyEvent read fOnButtonClick write fOnButtonClick; 
end; 

implementation 

// Attach embedded button event handler onto embedded button 
constructor TMyComponent.Create(AOwner: TComponent); 
begin 
    // .. other code 
    embeddedButton.OnClick := EmbeddedButtonClick; 
    // .. more code 
end; 

// EmbeddedButtonClick fires internal overridable event handler; 
procedure TMyComponent.EmbeddedButtonClick(Sender: TObject); 
begin 
    // If you want to preserve the Sender, extend this method 
    // with a sender argument. 
    DoEmbeddedButtonClick; 
end; 

procedure TMyComponent.DoEmbeddedButtonClick; 
begin 
    // Optionally if you need to do additional internal work 
    // when the button is clicked, you can do it here. 

    // Check if event handler has been assigned 
    if Assigned(fOnButtonClick) then 
    begin 
    // Fire user-assigned event handler 
    fOnButtonClick(Self); 
    end; 
end;