Borland Pascal For Windows

[Klafen]

В общем проблема такая:
Надо написать программу с помощью BPW, используя объекты библиотеки Object Windows. Помаленьку пытаюсь разобраться, делаю все по методичке к лабораторным, разбираю примеры из учебника. И тут самое и интересное:

Компилятор начал ругаться, когда я захотел подцепить Меню к окну программы с помощью функции LoadMenu, перекрыв конструктор Init главной формы:

Constructor TMyWindow.Init (AParent:PWindowsObject;
ATitle:PChar);
begin
Inherited Init (AParent,ATitle);
Attr.Menu:= LoadMenu(hInstance,'Menu_1'); 
Attr.X:= 100; Attr.Y := 100;
Attr.W:= 400; Attr.H := 300;
end;

При чем ошибка вылетает весьма странная:
Unknown Identifier

То есть я понимаю, что такой функции (LoadMenu) Паскаль не видит, ладно, черт с ней. запихал её в фигурный скобки. Пока дальше поразбираюсь. А дальше надо задать процедуру обработки сдвига мыши, опять такая же фигня, но уже при объявлении процедуры как метода главного окна ругается на WM_MOUSEMOVE, и выдает точно такую же ошибку.

Type
  PMyWindow = ^TMyWindow;
  TMyWindow=object(TWindow)
    constructor init(AParent:PWindowsObject; ATitle:PChar);
    procedure VMMouseMove (Var MSg:TMEssage); virtual WM_First+WM_MOUSEMOVE;
  end;

В чем может быть проблема?

[Klafen]

Примеры из методички взяты, в интернете погуглил, нигде такой проблемы не встречал, в разделе Uses пробовал пихать все файлы с расширением *.TPW, которые нашел в папке с Паскалем, и нифига=(

[Dozent]

Constructor TMyWindow.Init (AParent:PWindowsObject;
ATitle:PChar);
begin
Inherited; //Просто обращение к родителю
Attr.Menu:= LoadMenu(hInstance,'Menu_1'); 
Attr.X:= 100; Attr.Y := 100;
Attr.W:= 400; Attr.H := 300;
end;

Но я могу ошибатся

[Klafen]

Dozent, тогда компилятор выдает ошибку:

Method identifier expected

Скорее всего не в этом загвоздка=(

[Klafen]

Перечислил в разделе Uses программы вообще все возможные модули (файлы *.TPU и *.TPW) какие нашел в папке с паскалем, при компиляции открывается файл Drivers.pas и при объявлении типа

type

{ Event record }

  PEvent = ^TEvent;
  TEvent = record
    What: Word;
    case Word of
      evNothing: ();
      evMouse: (
        Buttons: Byte;
        Double: Boolean;
        Where: TPoint);
      evKeyDown: (
        case Integer of
	  0: (KeyCode: Word);
          1: (CharCode: Char;
              ScanCode: Byte));
      evMessage: (
        Command: Word;
        case Word of
          0: (InfoPtr: Pointer);
          1: (InfoLong: Longint);
          2: (InfoWord: Word);
          3: (InfoInt: Integer);
          4: (InfoByte: Byte);
          5: (InfoChar: Char));
  end;

ругается на срочку

Where: TPoint);

Неизвестный идентификатор

[Klafen]

Данную проблему решил, оказывается надо было в uses добавить wintypes и winprocs, жаль что в методичке об этом ни слова=(

[Vapaamies]

Сообщение от Klafen

Dozent, тогда компилятор выдает ошибку:

Method identifier expected

Писать inherited без имени метода стало возможно только в Delphi, если не путаю.

Сообщение от Klafen

надо было в uses добавить wintypes и winprocs, жаль что в методичке об этом ни слова=(

Странно, в любой программе под OWL эта строчка обязательно есть. В версиях Delphi 1-3 (?) даже настройка синонимов на эти модули была.

Мне теперь интересно, что ты будешь делать, когда выяснится, что строчная русская буква "ю" иногда не вводится, а буква "я" вообще не воспринимается или даже ошибку валит. Так в свое время и не победил.