В чем разница между TForm1.Button1.OnClick и Button1.OnClick? Это ведь одно и то же, но первое не работает, а второе работает. Почему?

Question

[sorry_i_noob]

Здравствуйте. Есть такой код.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure foo(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  (Sender as TButton).OnClick := foo; // работает
  (Sender as TButton).OnClick := TForm1.foo; // не работает

  Button1.OnClick := foo; // работает
  TForm1.Button1.OnClick := foo; // не работает
end;

procedure TForm1.foo(Sender: TObject);
begin
  MessageDlg('hello', mtError, mbOKCancel, 0);
end;

end.

У меня вопрос. В чем разница в этом коде?

(Sender as TButton).OnClick := foo; // работает
(Sender as TButton).OnClick := TForm1.foo; // не работает

Button1.OnClick := foo; // работает
TForm1.Button1.OnClick := foo; // не работает

Почему один код работает, а другой - нет?

Answer 1

[AntHTML]

Потому что TForm1.Button1.OnClick - метод класса TForm1
А Button1.OnClick - метод объекта Form1
Вы пытаетесь обращаться не к объекту а по сути к коду (типу данных) естественно это исполняться не будет

Answer 2

[Stockholm Syndrome]

(Sender as TButton).OnClick := TForm1.foo;

этот код не работает, потому что так можно вызвать/получить лишь статические методы класса
то есть это бы работало, если б было вот так:

TForm1 = class(TForm)
  Button1: TButton;
  class procedure foo(Sender: TObject);
  // ...

Comments

[sorry_i_noob]

А разве
Button1.OnClick
и
TForm1.Button1.OnClick

Не одно и то же?
Ведь Buttin1 находится внутри TForm1.

[Stockholm Syndrome]

sorry_i_noob, абсолютно разные вещи

TForm1 — это класс, а Form1 — экземпляр этого класса, и Button1 как раз-таки находится внутри Form1, то есть нашей формы, поэтому такая запись была бы верной
Form1.Button1.OnClick

а вот такая запись Button1.OnClick эквивалента такой: Self.Button1.OnClick

Self внутри методов класса (не статических) указывает на экземпляр объекта, то есть опять же на Form1

всё это — базовые основы ООП, почитайте на досуге

Answer 3

[Константин Цветков]

(Sender as TButton).OnClick := Form1.foo; // заработает
  Form1.Button1.OnClick := foo; // заработает
procedure TForm1.foo(Sender: TObject);
begin
  ShowMessage( 'hello' );
end;

Comments

[sorry_i_noob]

А разве
Button1.OnClick
и
TForm1.Button1.OnClick

Не одно и то же?
Ведь Buttin1 находится внутри TForm1.