Форум: "Основная";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.03 c