Я создал пользовательскую кнопку. Я подключаю его с помощью сетки. И я сделал специальный код для события «при нажатии».
Код ниже упрощен для понимания.
Все работает, если я нажимаю кнопку, отображается сообщение. Но так как я запускаю намного больше кода здесь. Я хотел бы скрыть, если это возможно, все события для этой кнопки. Возможно ли это, даже если я на самом деле использую TcxButton в качестве родительского класса?
unit cxGridButton;
interface
uses
System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls, cxButtons,
cxGridDBTableView, Dialogs;
type
TcxGridButton = class(TcxButton)
private
FGridView : TcxGridDBTableView;
protected
{ Protected declarations }
public
{ Public declarations }
procedure Click; override;
published
property DBGridView : TcxGridDBTableView read FGridView write FGridView;
end;
procedure Register;
implementation
procedure TcxGridButton.Click;
begin
inherited; // call the inherited Click method.
ShowMessage('AHA');
end;
procedure Register;
begin
RegisterComponents('James', [TcxGridButton]);
end;
end.