программно присвоить обработку события

← →
td (2003-06-05 19:18) [0]

Как программно на событие прикрутить обработку?

Например, для Table1.BeforeScroll
Где объявить соответствующую функцию?

Table1.BeforeScroll:=Table1BeforeScroll(self);
Я пытаюсь присвоить, но у меня ругается, что не совпадают типы!
И что надо написать в скобках?

← →
Palladin (2003-06-05 19:19) [1]

убери скобки

← →
td (2003-06-05 20:28) [2]

И все?..

← →
jack128 (2003-06-05 20:33) [3]

> И все?..

и self тоже убери

← →
Anatoly Podgoretsky (2003-06-05 20:42) [4]

Не, обработчик должен быть методом класса и его тип должен соответствовать, вот теперь все.

← →
td (2003-06-08 16:09) [5]

Почему тогда ЭТО у меня не работает?

type TForm1 = class(TForm) Table1: TTable; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; MyTable: TTable; procedure MyTableBeforePost(DataSet: TDataSet); implementation {$R *.DFM} procedure MyTableBeforePost(DataSet: TDataSet); begin showmessage("!"); end; procedure TForm1.FormCreate(Sender: TObject); begin MyTable.BeforePost:=MyTableBeforePost; end; end.

← →
td (2003-06-08 23:51) [6]

← →
[NIKEL] (2003-06-08 23:54) [7]

чмтай Anatoly Podgoretsky © (05.06.03 20:42)

← →
DrPass (2003-06-09 00:01) [8]

type
TForm1 = class(TForm)
Table1: TTable;
procedure FormCreate(Sender: TObject);
procedure MyTableBeforePost(DataSet: TDataSet);
private
{ Private declarations }

public
{ Public declarations }
end;

var
Form1: TForm1;
MyTable: TTable;

implementation

{$R *.DFM}

procedure TForm1.MyTableBeforePost(DataSet: TDataSet);
begin
showmessage("!");
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MyTable.BeforePost:=MyTableBeforePost;
end;

end.

← →
td (2003-06-09 00:28) [9]

У меня на это ошибка
Unsatisfied forward or external declaration: "TForm1.MyTableBeforePost"

← →
Armen (2003-06-09 01:13) [10]

> DrPass © (09.06.03 00:01)

type
TForm1 = class(TForm)
Table1: TTable;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure MyTableBeforePost(DataSet: TDataSet);
public
{ Public declarations }
end;

и не будет Unsatisfied forward or external declaration: "TForm1.MyTableBeforePost"

Дело в том что Delphi IDE сам решает что писать в:

type
a= class(b)
(вот здесь)
private
public
published
end;

хотя эта секция published.
(Иногда/Часто/Почти всегда) Перед save и компиляцией, Delphi убирает все что писал не он сам в этой секции.!

программно присвоить обработку события Найти похожие ветки