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

Вниз

Пытаюсь нормально запустить KOL библиотеку.......   Найти похожие ветки 

← →
Maxim Pshevlotsky   (2003-08-27 08:16) [0]

Может кто подскажет как вызвать форму из KOL библиотеки не пустую а с компонентами которые на самом деле расположены на ней. Ни хрена не-пойму:

procedure ShowMyForm;StdCall;
begin
Applet := NewApplet("");
NewMyForm(MyForm,Applet);
MyForm.Form.ShowModal;
MyForm.Form.Free;
end;

Показывается пустая форма.

P.S. Если можно старайтесь давать полные ответы

---

← →
SPeller ©   (2003-08-27 08:28) [1]

Во-первых, запускать KOL не получится - он не летает, да и лететь ему некуда. А во-вторых, конференция есть отдельная для его обсуждения. И в-третьих, ошибка в 17-й строке. Вы бы показали код NewMyForm хотябы.

---

← →
Maxim Pshevlotsky   (2003-08-27 09:13) [2]

_Lib01.dpr:

{ KOL MCK } // Do not remove this line!
library _Lib01;

uses
KOL,
uMyForm in "uMyForm.pas" {MyForm};

//{$R *.res}
exports ShowMyForm name "showMyForm";
begin // PROGRAM START HERE -- Please do not remove this comment

{$IFDEF KOL_MCK} {$I _Lib01_0.inc} {$ELSE}

{$ENDIF}

end.

uMyForm.pas:

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

interface

{$IFDEF KOL_MCK}
uses Windows, Messages, ShellAPI, KOL {$IFNDEF KOL_MCK}, mirror, Classes,
mckObjs, mckCtrls, Controls, Graphics {$ENDIF};
{$ELSE}
{$I uses.inc}
Windows, SysUtils, ImgList, Menus, ComCtrls,
StdCtrls, Buttons, ExtCtrls, Classes, Graphics, Forms,
Dialogs, iniFiles, Registry, ShellAPI, JvGradientCaption, abfComponents,
abfDialogs, Controls;
{$ENDIF}

type TLabelsName=(lnHost,lnPass,lnUser,lnDesc,lnLocalDir,lnRemoteDir, lnShowMessages);

type
{$IFDEF KOL_MCK}
{$I MCKfakeClasses.inc}
{$IFDEF KOLCLASSES} TMyForm = class; PMyForm = TMyForm; {$ELSE OBJECTS} PMyForm = ^TMyForm; {$ENDIF CLASSES/OBJECTS}
{$IFDEF KOLCLASSES}{$I TMyForm.inc}{$ELSE} TMyForm = object(TObj) {$ENDIF}
Form: PControl;
{$ELSE not_KOL_MCK}
TMyForm = class(TForm)
{$ENDIF KOL_MCK}
KOLForm1: TKOLForm;
Panel2: TKOLPanel;
bCancel: TKOLButton;
{...}
procedure eFTPAddressChange(Sender: TObject);
procedure eLoginChange(Sender: TObject);
{...}
end;

var
fMyForm {$IFDEF KOL_MCK} : PMyForm {$ELSE} : TMyForm {$ENDIF} ;
function ShowMyForm;StdCall;
{$IFDEF KOL_MCK}
procedure NewMyForm( var Result: PMyForm; AParent: PControl );
{$ENDIF}

implementation

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

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

function ShowMyForm;StdCall;
begin
Applet := NewApplet("");
NewMyForm(MyForm,Applet);
MyForm.Form.ShowModal;
end;

{Далее идут остальные функции и процедуры...}

end.

---

← →
SPeller ©   (2003-08-27 10:24) [3]

Я спрашиваю где текст NewMyForm???

---

← →
SPeller ©   (2003-08-27 10:24) [4]

Я спрашиваю где текст NewMyForm???

---

← →
Т169   (2003-08-27 10:52) [5]

Киска съела.
Глючное оно!

---

← →
Maxim Pshevlotsky   (2003-08-27 11:08) [6]

SPeller © (27.08.03 10:24) [3]

Имеется ввиду сама форма что-ли MyForm.dfm, зачем она? Содержание то же что и у VCL-го

---

Страницы: 1 вся ветка

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

Наверх

Память: 0.48 MB
Время: 0.031 c