webBroker的<input type="date" name="birthday"> 日期输入

<form action="ZZ" method="post">
<input type="date" name="birthday">
    <br>
     <input type="submit" value="提交">
</form>

///ZZ     <input type="date" name="birthday">    日期输入
procedure TWebModule1.WebModule1WebActionItem7Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  var s: string;
begin
//  S :=  Request.ContentFields.Text;    //birthday=2025-01-23    name=Value
 S := Request.ContentFields.Values['birthday']  ;
  s:= '<input type="button" name="Submit" value="返回到主页"   onclick="location.href=''http://127.0.0.1:8080/''" /><br> '+s;
      Response.Content := s;
end;