<form action="MN" method="post">
<input type="color" name="favcolor">
    <br>
     <input type="submit" value="提交">
</form>
复制代码
//MN <input type="color" name="favcolor">  颜色 输入
procedure TWebModule1.WebModule1WebActionItem8Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var s: string;
begin
 ///  S :=  Request.ContentFields.Text;      favcolor=#ad84fb    name=Value
 S := Request.ContentFields.Values['favcolor']  ;
    Response.Content := s;
end;
复制代码