uniGui是一款delphi开发网页应用的框架，完全基于ExtJs,全面支持ajax技术，是delphi开发bs程序的有力控件!官方网站为 http://www.unigui.com unigui的demo运行方法网址介绍地址http://www.unigui.com/resources/running-demos
uniGUI为Delphi开发者在IDE上的Web应用程序设计创建、调试提供一套独特的视觉元素。每个组件的设计是为了提供在Delphi VCL可视化组件的对应相同的功能。这提供了一个非常舒适的开发环境，非常接近原生VCL应用开发的一个简单的学习过程。uniGUI Web应用程序可以部署到服务器上使用一个可用的部署选项，如Windows服务，独立服务器或ISAPI模块。
本源码是在uniguiv0.95的基础上开发的，如果你用最新的unigui版本，可能需要一些修改才能运行!
以下是引导说明界面
其中的部份代码
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
| procedure TMainForm.InsertFrame(acaption:string);
var
tabs:TUniTabSheet;
begin
if (MM1.LoginUserid<>'') then
begin
if acaption='添加帐号' then
begin
try
UniFrame3:=TUniFrame3.Create(Self);
UniFrame3.Align:=alClient;
except
ShowActiveTab('添加帐号');
exit;
end;
tabs:=TUniTabSheet.Create(Self);
tabs.PageControl:=pg1;
tabs.Caption:='添加帐号';
tabs.Closable:=True;
pg1.ActivePage:=tabs;
UniFrame3.Parent:=tabs;
UniFrame3.ParentWindow:=MainForm.Handle;
end;
if acaption='系统设置' then
begin
try
UniFrame4:=TUniFrame4.Create(Self);
UniFrame4.Align:=alClient;
except
ShowActiveTab('系统设置');
exit;
end;
tabs:=TUniTabSheet.Create(Self);
tabs.PageControl:=pg1;
tabs.Caption:='系统设置';
tabs.Closable:=True;
pg1.ActivePage:=tabs;
UniFrame4.Parent:=tabs;
UniFrame4.ParentWindow:=MainForm.Handle;
end;
end;
end;
|
提供的源代码可以用于学习unigui！此unigui源码动态生成tab,鼠标长时间不动自动锁界面等值得借鉴，你只需要修改一下代码就可以做为自己web系统的框架，添加功能继续开发!下载后运行bin目录中的安装，就可以点 打开 看到界面了，可以自己注册帐号，默认有一个帐号admin admin
下载地址：
链接: https://pan.baidu.com/s/1PMRYEB96MYH6VYrYnHrEaQ 提取码: cyfe 复制这段内容后打开百度网盘手机App，操作更方便哦
