Мастера помогите

← →
Ferrarium © (2002-10-17 16:59) [0]

есть код
unit Unit1;

interface uses Controls, Forms, StdCtrls; function Start(Owner:TObject):Boolean; implementation procedure ButClick(Sender: TObject); begin end; function Start(Owner:TObject):Boolean; var Button:TButton; begin Button:=TButton.Create(Application); Button.Parent:=TWinControl(Owner); Button.Caption:=""; Button.OnClick:=ButClick; -этой строке выдается ошибка :"Incompatible types: method pointer and regular procedure"
<СODE>
end;

end.

Что я делаю не правильно????

← →
Anatoly Podgoretsky © (2002-10-17 17:06) [1]

ButClick должен быть методом формы

← →
Bis (2002-10-17 17:12) [2]

может быть методом любого объекта, наследованного от TObject

← →
AngeL B. (2002-10-17 17:16) [3]

Правильнее будет сказать, что ButClick должен быть методом объекта некоторого класса.
И еще. Не надо путать Owner и Parent.
Owner - тот, кто уничтожает объект при своем освобождении;
Parent - тот, кто прорисовывает объект.
Указывая TButton.Create(Application), ты либо должен уничтожить объект сам, либо он будет уничтожен вместе с заверщение приложения, а до этого будет занимать память.

← →
Ferrarium © (2002-10-17 17:20) [4]

пример кода можно

← →
DieHard © (2002-10-17 17:32) [5]

procedure ButClick(Sender: TObject) of object; begin end;

не работает

procedure [b]Form1.[/b]ButClick(Sender: TObject)

Мастера помогите Найти похожие ветки