![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Создание формы
nizar © (2003-06-26 10:30:00)Здравствуйте!
Решил попробовать 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 11:48:00) [1]
не за что..
nizar (2003-06-26 11:44:00) [2]
Ага, Вот этот момент пропустил. Спасибо Алексей.
nizar (2003-06-26 11:11:00) [3]
Спасибо, работает
savva (2003-06-26 10:31:00) [4]
ба.. старые все люди...
ты когда кидал TKOLProject - указал имя DestProject? если да - то открой в той же папке проект с указанным именем..