UNIGUI集成HTML导航

UNIGUI集成HTML导航

先来一个效果图：

ajaxRequest(MainForm.window,'openform',[]);

procedure TMainForm.UniFormAjaxEvent(Sender: TComponent; EventName: string;Params: TStrings);
var s:string;
begin
if EventName = 'openform' then
begin
***.show();
end;
end;

 

1.把style样式内容加入customcss中
2.主页添加UniSyntaxEdit1 html内容，其language属性改为html
3.建立一个label，Textconversion属性改为txtHTML 将UniSyntaxEdit1 赋值给他。
4.在html页面中的href链接里写<a href="javascript:ajaxRequest(MainForm.window,'openform',[]);">子菜单一</a>
5.主窗口事件接收响应
procedure TMainForm.UniFormAjaxEvent(Sender: TComponent; EventName: string;Params: TStrings);
var s:string;
begin
if EventName = 'openform' then
begin
***.show();
end;
end;