| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Прошу прощения, по ошибке закрыл ветку "Использование MakeMethod"

Игорь Шевченко ©   (2009-11-03 15:28:00) 

Вот ее текст
stas © (03.11.09 15:03) [0]

При обращении к параметрам внутри функции выходит ошибка Runtime 216.
Что я делаю не так?

Вот присваеваю функцию:
Form.OnMessage:=TOnMessage(MakeMethod( nil,@msg));

Вот сама функция:
function msg (var Msg: TMsg; var Rslt: Integer ): Boolean; stdcall;
begin
if Msg.message<>WM_DEVICECHANGE then
begin

end;
Result:=false;
end;

stas © (03.11.09 15:16) [1]

использую KOL.

---

stas   (2009-11-03 15:44:00) [1]

Спасибо!

---

Jon   (2009-11-03 15:41:00) [2]

> > function msg (var Msg: TMsg; var Rslt: Integer): Boolean; stdcall;
>
>
> function msg(Dummy: Pointer; var Msg: tagMSG; var Rslt: Integer): Boolean;
>


> function amsg(Dummy: Pointer; var Msg: tagMSG; var Rslt: Integer): Boolean;

---

Jon   (2009-11-03 15:38:00) [3]

> function msg (var Msg: TMsg; var Rslt: Integer): Boolean; stdcall;


function msg(Dummy: Pointer; var Msg: tagMSG; var Rslt: Integer): Boolean;


---

Наверх