Обработка сообщений.

← →
asp (2003-03-03 21:40) [0]

Пытаюсь перевести прогу на KOL. Возникла проблема.
Исходный код (всё работает):
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,winSpool,shellapi;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);

private
{ Private declarations }
procedure WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);
message WM_SPOOLERSTATUS;
затем сама процедура
procedure TForm1.WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);
var
и т.д.

Тот же код с использованием KOL:

{ KOL MCK } // Do not remove this line!
{$DEFINE KOL_MCK}
unit Unit1;

interface

{$IFDEF KOL_MCK}
uses Windows, Messages, ShellAPI, KOL {$IFNDEF KOL_MCK}, mirror, Classes, mckCtrls, Controls {$ENDIF};
{$ELSE}
{$I uses.inc}
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
mckCtrls, mirror, winSpool;
{$ENDIF}

type
{$IFDEF KOL_MCK}
{$I MCKfakeClasses.inc}
PForm1 = ^TForm1;
TForm1 = object(TObj)
Form: PControl;
procedure WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);

{$ENDIF}
{$ELSE not_KOL_MCK}
TForm1 = class(TForm)
{$ENDIF KOL_MCK}
KOLProject1: TKOLProject;
KOLForm1: TKOLForm;
Label1: TKOLLabel;
Button1: TKOLButton;
Memo1: TKOLMemo;

private
( var Msg : TWMSPOOLERSTATUS) Пытаюсь перевести прогу на KOL. Возникла проблема.
Исходный код (всё работает):
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,winSpool,shellapi;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);

private
{ Private declarations }
procedure WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);
message WM_SPOOLERSTATUS;
затем сама процедура
procedure TForm1.WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);
var
и т.д.

Тот же код с использованием KOL:

{ KOL MCK } // Do not remove this line!
{$DEFINE KOL_MCK}
unit Unit1;

interface

{$IFDEF KOL_MCK}
uses Windows, Messages, ShellAPI, KOL {$IFNDEF KOL_MCK}, mirror, Classes, mckCtrls, Controls {$ENDIF};
{$ELSE}
{$I uses.inc}
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
mckCtrls, mirror, winSpool;
{$ENDIF}

type
{$IFDEF KOL_MCK}
{$I MCKfakeClasses.inc}
PForm1 = ^TForm1;
TForm1 = object(TObj)
Form: PControl;
procedure WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);

{$ENDIF}
{$ELSE not_KOL_MCK}
TForm1 = class(TForm)
{$ENDIF KOL_MCK}
KOLProject1: TKOLProject;
KOLForm1: TKOLForm;
Label1: TKOLLabel;
Button1: TKOLButton;
Memo1: TKOLMemo;

private
{ Private declarations }
procedure WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);
message WM_SPOOLERSTATUS;
затем сама процедура
Страшно ругается на строку с message.
Куда вставить декларацию процедуры и сообщения? Пробовал в разные места :-) но всё равно не работает.

← →
Bartov (2003-03-04 00:36) [1]

Почитай ззззззздесь:
http://kol.mastak.ru/faq.htm#13

Мда, ведь одно и тоже по 100 раз ;-(

← →
asp (2003-03-05 07:13) [2]

Я искал с помощью поиска, он ничего не выдал. А за ссылку спасибо.

Обработка сообщений. Найти похожие ветки