intraweb 的窗口切换(100分)

  • 主题发起人 主题发起人 御风而行
  • 开始时间 开始时间

御风而行

Unregistered / Unconfirmed
GUEST, unregistred user!
我用DELPHI7 的intraweb做了些网页
在StandAlone 的环境下可以实现窗口间的互相调用
但转到ISAPI 上面就不行了~(用IIS做服务器)
说什么“ A component named formMain alreay exist”
请问是怎么回事啊
该怎么做啊
不胜感激~
 
你用了窗体的继承了吧,呵呵[:D]
 
没有啊~
是两个完全不同的窗口啊~
 
改一下SERVERCONTROL中的APPNAME属性。试试看哦
 
unit webmenu;

interface

uses
{$IFDEF Linux}QForms,{$ELSE}Forms,{$ENDIF}
{$IFDEF Linux}QControls,{$ELSE}Controls,{$ENDIF}
{$IFDEF Linux}QGraphics,{$ELSE}Graphics,{$ENDIF}
{$IFDEF Linux}QDialogs,{$ELSE}Dialogs,{$ENDIF}
{$IFNDEF Linux}
Windows, Messages,
{$ENDIF}
SysUtils, Classes, IWControl, IWHTMLControls,IWApplication,
IWCompButton, IWCompLabel, IWAppForm, IWContainer, IWRegion, jpeg,
IWExtCtrls;

type
Tdkmenu = class(TFrame)
lbluser: TIWLabel;
IWLabel1: TIWLabel;
IWLabel2: TIWLabel;
IWLabel3: TIWLabel;
IWLink1: TIWLink;
IWLink2: TIWLink;
IWLink3: TIWLink;
IWLink4: TIWLink;
IWLink5: TIWLink;
IWLink6: TIWLink;
IWLink7: TIWLink;
IWLink8: TIWLink;
IWLink10: TIWLink;
IWLink11: TIWLink;
IWLabel4: TIWLabel;
IWImage2: TIWImage;
procedure IWLink1Click(Sender: TObject);
procedure IWLink3Click(Sender: TObject);
procedure IWLink8Click(Sender: TObject);
procedure IWLink10Click(Sender: TObject);
procedure IWLink7Click(Sender: TObject);
procedure IWLink2Click(Sender: TObject);
procedure IWLink5Click(Sender: TObject);
procedure IWLink4Click(Sender: TObject);
procedure IWLink11Click(Sender: TObject);
procedure IWLink6Click(Sender: TObject);
private
{ Private declarations }
procedure Move(SForm: TIWAppFormClass; RForm: TIWAppForm);
public
{ Public declarations }
end;

implementation

uses IWInit, IWTypes,ServerController,DatamoduleUnit,web_dkbuy,webzc,webcpass,webabout,webcinfo
,webmoney,webbdkinfo,webmoneyin,wzcinfo;

{$R *.dfm}


procedure Tdkmenu.Move(SForm: TIWAppFormClass; RForm: TIWAppForm);
begin
// TIWAppForm(RWebApplication.ActiveForm).Free;
SForm.Create(RWebApplication).Show; //关键在这,先显示
RForm.Release; //在四放
end;


procedure Tdkmenu.IWLink1Click(Sender: TObject);
begin

//if not dm.dklib.active then dm.dklib.Open;
if not usersession.DataModule1.dkstyle.active then usersession.DataModule1.dkstyle.Open;
move(tweb_buydk,TIWAppForm(RWebApplication.ActiveForm));
end;

procedure Tdkmenu.IWLink3Click(Sender: TObject);
begin
move(tweb_zc,TIWAppForm(RWebApplication.ActiveForm));
end;

procedure Tdkmenu.IWLink8Click(Sender: TObject);
begin
move(tweb_cpass,TIWAppForm(RWebApplication.ActiveForm));
end;

procedure Tdkmenu.IWLink10Click(Sender: TObject);
begin
move(tweb_about,TIWAppForm(RWebApplication.ActiveForm));
end;

procedure Tdkmenu.IWLink7Click(Sender: TObject);
begin
move(tweb_cinfo,TIWAppForm(RWebApplication.ActiveForm));
end;

procedure Tdkmenu.IWLink2Click(Sender: TObject);
begin
move(tfrm_money,TIWAppForm(RWebApplication.ActiveForm));
end;

procedure Tdkmenu.IWLink5Click(Sender: TObject);
begin
move(tweb_bdkinfo,TIWAppForm(RWebApplication.ActiveForm));
end;

procedure Tdkmenu.IWLink4Click(Sender: TObject);
begin
move(tweb_moneyin,TIWAppForm(RWebApplication.ActiveForm));
end;

procedure Tdkmenu.IWLink11Click(Sender: TObject);
begin
rwebapplication.Terminate('系统正常退出!!!');
end;

procedure Tdkmenu.IWLink6Click(Sender: TObject);
begin
move(tfrm_zcinfo,TIWAppForm(RWebApplication.ActiveForm));
end;

end.
给分吧,亲爱的
 
请问:
用了窗体的继承,就会出现这个问题吗???
最近我也迷上了IntraWeb,用的是最新版的7.0.21。
练手时是做个论坛,用StandAlone,也用到了窗体的继承,已经完成大部分功能。
改成ISAPI时,怎么解决贴主说的这个问题???
 
后退
顶部