Проблема с классами
Nick-123 © (2006-12-31 16:34:00)
Есть тип TOnClick = procedure(). У класса кнопки TGameButton
свойство OnClick: TOnClick. Присваиваем ему процедуру, и при
нажатии на кнопку она вызывается.
Есть класс TGamePanel, и переменная CloseBtn: TGameButton.
(объявлена не в классе, а в секции интерфейса) У этого класса --
procedure TGamePanel.CloseButtonClick. В TGamePanel.Create
присваиваем CloseBtn.OnClick := CloseButtonClick, и получаем
[Pascal Error] cGUIPanel.pas(71): E2009 Incompatible types:
'regular procedure and method pointer'.
Что делать?
Надеюсь, вы в вышенаписанном хоть что-то поняли. :)))))
DrPass (2006-12-31 16:59:00) [1]
> TOnClick = procedure().
А ты сделай TOnClick = procedure(...) of object
Наверх 
ЧАТ |
Орешник |
|
