Всем доброго дня.
Помогите разобраться , в чем ошибка.
Начал писать программу, создаю класс в отдельном файле cpp,
его подключаю к файлу ccp формы, в обработчике onCreate
вызываю метод класса, а в ответ появляется окно
CodeGuard, в котором написано "Method called on invalid object".
Вот куски кода
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
// ---------------------------------------------------------------------------
//#include "vcl.h"
#include "system.hpp"
#include "dstring.h"
// ---------------------------------------------------------------------------
#include "PRJ_Monitor_Main_Cpp.h"
// ---------------------------------------------------------------------------
class TMyClassMonitor
{
private:
protected:
public:
void GetApplError(void);
void SetWindowPositionTB(TMonitorForm *LMonitorForm); // Расположение главного окна.
};
// ---------------------------------------------------------------------------
void TMyClassMonitor::GetApplError(void)
{ // 0001
char *lpMsgBuf; //Буфер для сообщения
FormatMessage(
FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
NULL,
GetLastError(),
MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
(LPTSTR) &lpMsgBuf,
0 ,
NULL
);//Формируем сообщение об ошибке
MessageBox( NULL, lpMsgBuf, "GetLastError", MB_OK|MB_ICONINFORMATION ); //Выводим сообщение об ошибке
LocalFree( lpMsgBuf );//Очищаем буфер
} // 0001
// ---------------------------------------------------------------------------
void TMyClassMonitor::SetWindowPositionTB(TMonitorForm *LMonitorForm)
{ // 0001
//Устанавливаем размеры окна таким образом,
//что бы его размер по высоте не перекрывал панель задач.
char *TaskBarClassName;
HWND TaskBarHndl;
LPRECT TaskBarRect;
BOOL GetRecErr;
TaskBarClassName = "Shell_TrayWnd";
TaskBarHndl = FindWindow(TaskBarClassName, 0 );// Находим Handle панели задач
if (TaskBarHndl == NULL){GetApplError();};
GetRecErr = GetWindowRect(TaskBarHndl,TaskBarRect); //Находим точки расположения панели задач
if (GetRecErr == 0 ){GetApplError();};
LMonitorForm-> Height = ( Screen->Height + ( (TaskBarRect->top) - (TaskBarRect->bottom) ) ); //Установили высоту окна
LMonitorForm-> Width = Screen->Width;//Установили ширину окна
LMonitorForm-> Top = 0 ; //Верхний угол
LMonitorForm-> Left= 0 ; //Левый край
} // 0001
//---------------------------------------------------------------------------
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
// ---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
// ---------------------------------------------------------------------------
#include "PRJ_Monitor_Main_Cpp.h"
// ---------------------------------------------------------------------------
#include "PRJ_Monitor_Main_Function.cpp"
//#include "PRJ_Monitor__ncFunction.cpp"
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMonitorForm *MonitorForm;
// ---------------------------------------------------------------------------
TMyClassMonitor *WorkMon = NULL;
// ---------------------------------------------------------------------------
__fastcall TMonitorForm::TMonitorForm(TComponent* Owner)
: TForm(Owner)
{
}
// ---------------------------------------------------------------------------
void __fastcall TMonitorForm::FormCreate(TObject *Sender)
{// 0001
//Используем все доступное пространство Экрана Монитора
//Распологает еу выше панели задач.
WorkMon->SetWindowPositionTB(MonitorForm);
//SetWindowPositionTB(MonitorForm);
}// 0001
// ---------------------------------------------------------------------------
void __fastcall TMonitorForm::ExitClick(TObject *Sender)
{ // 0001
//Выход из приложения
Application->Terminate();
} // 0001
//---------------------------------------------------------------------------
Guard показывает при этом на строчку
авторTaskBarClassName = "Shell_TrayWnd";
Как это понимать ?
-----------------------------------------------------------
С уважением,MySQLdb
