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

Вниз

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

 
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]

up


 
[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 убирает все что писал не он сам в этой секции.!






Страницы: 1 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.016 c
4-84857
Алексей
2003-04-21 09:41
2003.06.26
Как выполнить exe файл из программы на Делфи?


6-84512
LOX
2003-04-17 11:43
2003.06.26
TWebBrowser команда правка в блокнот.


1-84214
Ig
2003-06-11 19:47
2003.06.26
Подскажите пожалуйста, как поместить значение из TEdit в Timer.In


3-83930
YuraKiller
2003-06-03 22:33
2003.06.26
Предоставление доступа к таблицам и процедурам.


7-84774
Anonimus
2003-04-17 11:15
2003.06.26
Перезагрузка......