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.
给分吧,亲爱的