Я пытаюсь проверить, было ли уже назначено событие (TNotifyEvent
) с определенным procedure(Sender: TObject) of object
.
Вот мой пример кода:
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if(Button1.OnClick = Button1Click) then
begin
//...
end;
end;
В этом случае я получаю следующее сообщение об ошибке:
[Ошибка DCC] Unit1.pas(28): E2035 Недостаточно фактических параметров
Итак, я пробовал следующим образом:
procedure TForm1.Button1Click(Sender: TObject);
begin
if(@Button1.OnClick = @Button1Click) then
begin
//...
end;
end;
При компиляции ошибка меняется на:
[Ошибка DCC] Unit1.pas(28): E2036 Требуется переменная
Как я могу проверить, указывает ли Button1.OnClick
на Button1Click
?