Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.28;
Скачать: CL | DM;

Вниз

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

 
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;


 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
4-92816
Morfey COOL
2002-09-17 12:20
2002.10.28
Запуск приложения


14-92702
Wonder
2002-10-08 12:33
2002.10.28
Нервным, с больным сердцем и детям не смотреть!!!


6-92634
Mostak
2002-08-28 11:10
2002.10.28
NMFTP не работает?


1-92448
Sego
2002-10-15 14:46
2002.10.28
Twebbrowser ?


14-92717
Anatoly Podgoretsky
2002-10-04 09:26
2002.10.28
С днем рождения Павел Озерский