Добавил в проект модуль
| Код | //modul.h //--------------------------------------------------------------------------- #include <Classes.hpp> #include <Controls.hpp> #include <StdCtrls.hpp> #include <Forms.hpp> #ifndef modulH #define modulH void zLineTo() { Form1->Canvas->LineTo(100,100); } #endif
|
в главном модуле в обработчик OnClick написал
| Код | void __fastcall TForm1::FormClick(TObject *Sender) { zLineTo(); }
|
Если в приложении кликнуть на форму, вылезет ошибка. Но если вместо вызова функции zLineTo() написать её содержимое, то ошибки не будет. http://dump.ru/files/8/8103619553/ |