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;