VPF::Не могу объявить процедуру - Форум программистов

kulikoff

Дата 4.12.2006, 09:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: нет
Всего: 1

Пишу:

Код


type
  TForm12 = class(TForm)
    sDragBar1: TsDragBar;
    sGroupBox1: TsGroupBox;
    sStatusBar1: TsStatusBar;
    sBitBtn1: TsBitBtn;
    sGroupBox2: TsGroupBox;
    sRadioButton1: TsRadioButton;
    sRadioButton2: TsRadioButton;
    sRadioButton3: TsRadioButton;procedure sBitBtn5Click(Sender: TObject);
    procedure sBitBtn4Click(Sender: TObject);
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);

  private
    { Private declarations }
  public
    { Public declarations }
    procedure NewLabelClick(Sender: TObject);
  end;
var
  Form12: TForm12;

implementation

uses Unit1;

{$R *.dfm}

procedure NewLabelClick(Sender: TObject);
begin
  ShowMessage('нажата '+TsLabel(Sender).Name);
end;

При компиляции выдает ошибку Unsatisfied forward or external declaration: 'TForm12.NewLabelClick'
при этом в чистом и пустом проекте всё запускается... Что это за ошибка и как с ней бороться?

Akella

Дата 4.12.2006, 09:59 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Код


procedure Form12.NewLabelClick(Sender: TObject);
begin
  ShowMessage('нажата '+TsLabel(Sender).Name);
end;

Добавлено @ 10:00

Цитата(kulikoff @ 4.12.2006, 09:57

)

Что это за ошибка

тыкаешь мышкой по окну сообщений (внизу) на строку с сообщением и жмёшь F1

Это сообщение отредактировал(а) Akella - 4.12.2006, 10:01

kulikoff

Дата 4.12.2006, 10:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: нет
Всего: 1

Спасибо!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »