Присвоение события динамически создаваемому контролу

[exyl]

В Делфи ни разу не спец, но понадобилось присвоить событие динамически создаваемой форме (OnPaint). Вся работа с ней исключительно в отдельном pas модуле (потом он будет интегрирован в проект). Насколько я понимаю идеологию, раз формы изначально нет, то пишем класс, где объявляем процедуру:

type
  TWndF = class(TForm)
    procedure wndFPaint(Sender: TObject);
  end;

  var
  WNDF: TWndF;

А после вызова функции-конструктора (сама функция длинная, но суть можно выразить одной строкой: Result:=TForm.Create(Application) ), нужно присвоить:

WNDF.OnPaint:=wndFPaint;

При этом процедура объявлена:

procedure wndFPaint(Sender: TObject);

Но компилятор выдает ошибочку:

[DCC Error] xGUI.pas(15864): E2009 Incompatible types: 'method pointer and regular procedure'

На том самом месте, где происходит присвоение WNDF.OnPaint:=wndFPaint;

Ночью вздремнуть не удалось, поэтому вероятность того, что туплю стремится к бесконечности, но тем не менее, как исправить?

[Аватар]

Result:=TForm.Create(Application)

почему TForm, а не TWndF

procedure wndFPaint(Sender: TObject);

почему не TWndF.wndFPaint ?

[exyl]

Сообщение от Аватар

Result:=TForm.Create(Application)

почему TForm, а не TWndF

procedure wndFPaint(Sender: TObject);

почему не TWndF.wndFPaint ?

1. Я передал суть. На самом деле, конечно, TWndF.
2. Опа. Забыл, благодарю.

[Аватар]

Я передал суть. На самом деле, конечно, TWndF.

Ну в той сути процентов на 95 должно быть именно TWndF, иначе суть как бы и не суть

[exyl]

Сообщение от Аватар

Ну в той сути процентов на 95 должно быть именно TWndF, иначе суть как бы и не суть

Да названия формы, события и класса я поменял уже на форуме, в оригинале они совсем другие и если б не параноидальные правила, касающиеся неразглашения бреда тайн нашей конторы, то я б такой описки не сделал ))

[exyl]

Теперь компилятор кроет матом:

[DCC Error] xGUI.pas(1447): E2065 Unsatisfied forward or external declaration: 'TWndF.wndFPaint'

Вот эту строку: procedure wndFPaint(Sender: TObject); в описании класса:

type
  TWndF = class(TForm)
    procedure wndFPaint(Sender: TObject);
  end;

Какие-нибудь соображения есть по этому поводу?

[Аватар]

Не найдена реализация для wndFPaint. Все с той же оперы, что опа забыл

[xatabich]

А это главная форма

[exyl]

Сообщение от Аватар

Не найдена реализация для wndFPaint. Все с той же оперы, что опа забыл

Спасибо, понял сразу две вещи.
1. Где ошибка.
2. Иногда нужно спать.

Тему лучше вообще удалить, т.к. тут ничего полезного вроде нет, но есть банальная невнимательность от недосыпа ))

[саша40]

События у любого компонента(не важно какого) присваиваются так:
<имя компонента>.<название события(onЧто-то там)>:=<процедура, которая сработает при этом событие>;
Помни! Процедура, которая сработает при событие компонента, должна иметь те же самые параметры, что и стандартная у компонента.