Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

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

 
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 вся ветка

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
1-43624
Vanja
2004-03-01 19:00
2004.03.14
как программно удалить папку?


3-43340
Yanker
2004-02-18 15:59
2004.03.14
Взлом пароля к БД *.db


1-43635
фантазёр
2004-03-01 20:18
2004.03.14
procedure


1-43646
vlgrig1961
2004-03-02 10:12
2004.03.14
Как в QReport выводить вертикальный текст


14-43788
Undert
2004-02-18 17:46
2004.03.14
IndyHTTP (tidHTTP)