Простой вопрос, По объявлению процедур в 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