Thanks ganzqgy ,
BTW , please explain more .
I changed
from ajaxRequest( MainForm.mainURLFrame , "goMenu", ['menu_id='+menu_id]);
to ajaxRequest( top.MainForm, "goMenu", ['menu_id='+menu_id]);
and changed
from
procedure TMainForm.mainURLFrameAjaxEvent(Sender: TComponent;
EventName: string; Params: TStrings);
to
procedure TMainForm.UniFormAjaxEvent(Sender: TComponent; EventName: string;
Params: TStrings);
begin
showMessage( EventName ) ;
end;
but it dosen't work .