Форум: "KOL";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];
ВнизСоздание формы Найти похожие ветки
← →
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]не за что..
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c