Простой вопрос, По объявлению процедур в Delphi Опции

[Shmanich]

На форме компоненты Memo1 и MainMenu, где созданы подпункты TMenuItem.
В учебнике нашел процедуру:

Код

procedure TForm1.Put(Sender: TObject);
begin
Memo1.Text:=Memo1.Text+(Sender as TMenuItem).Caption;
end;

Из-за которой не компилируется проект. Поразмыслил понял, что это самодельная процедура. Ее заголовок я прописал после Private, т.е.:

Код

  private
    { Private declarations }
   procedure TForm1.Put(Sender: TObject);
  public
    { Public declarations }
  end;

Но проект все равно не компилируется. "[Pascal Error] Mainunit.pas(43): E2003 Undeclared identifier: 'TForm1'" . Может не туда добавляю заголовок?


Name формы: Form1.

Может не так добавляю? Када правильно писать заголовки самодельные процедур?

Нашел пример объявления кода:

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;


type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
              procedure HeCoBCemTak(Sender:Tobject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.HeCoBCemTak(Sender:Tobject);
begin
  application.MessageBox('CoBceMheTak','HeCoBcemTak',MB_YESNO)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.HeCoBCemTak(Form1);
end;

end.

Делаю все также, но не компилируется .

Сообщение отредактировано: Shmaniche - 1.12.2012 13:12

[nishaknapp]

Why not settling on games that is fun and at the same time your earning. Well it'll make suspense because the game is well but dude just try it and it gave me hope while pandemic is real rn. The Origins of Blackjack