Создание формы

← →
nizar (2003-06-26 10:30) [0]

Здравствуйте!
Решил попробовать KOL&MCK 1.77
Поставил, как в мануале написано кидаю на форму TKOLForm, TKOLApplet,
TKOLProject, запускаю и выдаётся сообщение:

[Error] Unit1.pas(23): Undeclared identifier: "TKOLApplet"
[Error] Unit1.pas(23): Undeclared identifier: "TKOLApplet"
[Error] Unit1.pas(23): Undeclared identifier: "TKOLApplet"
[Error] Unit1.pas(25): Published field "KOLProject1" not a class nor interface type

Что нетак?

Вот текст кода:

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

interface

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

type
{$IFDEF KOL_MCK}
{$I MCKfakeClasses.inc}
{$IFDEF KOLCLASSES} TForm1 = class; PForm1 = TForm1; {$ELSE OBJECTS} PForm1 = ^TForm1; {$ENDIF CLASSES/OBJECTS}
{$IFDEF KOLCLASSES}{$I TForm1.inc}{$ELSE} TForm1 = object(TObj) {$ENDIF}
Form: PControl;
{$ELSE not_KOL_MCK}
TForm1 = class(TForm)
{$ENDIF KOL_MCK}
KOLApplet1: TKOLApplet;
KOLForm1: TKOLForm;
KOLProject1: TKOLProject;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1 {$IFDEF KOL_MCK} : PForm1 {$ELSE} : TForm1 {$ENDIF} ;

{$IFDEF KOL_MCK}
procedure NewForm1( var Result: PForm1; AParent: PControl );
{$ENDIF}

implementation

{$IFNDEF KOL_MCK} {$R *.DFM} {$ENDIF}

{$IFDEF KOL_MCK}
{$I Unit1_1.inc}
{$ENDIF}

end.

← →
savva (2003-06-26 10:31) [1]

ба.. старые все люди...
ты когда кидал TKOLProject - указал имя DestProject? если да - то открой в той же папке проект с указанным именем..

← →
nizar (2003-06-26 11:11) [2]

Спасибо, работает

← →
nizar (2003-06-26 11:44) [3]

Ага, Вот этот момент пропустил. Спасибо Алексей.

← →
savva (2003-06-26 11:48) [4]

не за что..

Создание формы Найти похожие ветки