Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
ВнизМастера помогите Найти похожие ветки
← →
Ferrarium (2002-10-17 16:59) [0]есть код
unit Unit1;
interface
-этой строке выдается ошибка :"Incompatible types: method pointer and regular procedure"
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;
<С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;
← →
Ferrarium (2002-10-17 18:24) [6]не работает
← →
Smithson (2002-10-17 18:29) [7]procedure [b]Form1.[/b]ButClick(Sender: TObject)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c