delphi 08 HTML組件

標籤：http   color   io   for   html   div   ar   line   




///HTML組件
///後面的字串為這個控制項的ID號
///直線          Line         (WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertHorizontalRule‘, True, ‘‘);
///按鈕          Button      (WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertButton‘, True, ‘‘);
///複選框        CheckBox  (WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertInputCheckbox‘, True, ‘‘);
///單選框        Radio        (WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertInputRadio‘, True, ‘‘);
///編輯框        Edit        (WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertInputText‘, True, ‘‘);
///文字框        Memo        (WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertTextArea‘, True, ‘‘);
///密碼框        PswEdit      (WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertInputPassword‘, True, ‘‘);
///組架構     GroupBox    (WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertIFrame‘, True, ‘‘);
///列表框        ListBox      (WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertSelectListbox‘, True, ‘‘);
///組合框        Combobox    (WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertSelectDropdown‘, True, ‘‘);
{
InsertFieldset
InsertInputFileUpload
InsertInputHidden
InsertInputImage
InsertInputSubmit
InsertMarquee






}


procedure WB_InsertHorizontalRule();
begin
   (Form1.WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertHorizontalRule‘, True, ‘‘);
end;

procedure WB_InsertButton();
begin
   (Form1.WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertButton‘, True, ‘‘);
end;


procedure WB_InsertCheckbox();
begin
   (Form1.WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertInputCheckbox‘, True, ‘‘);
end;

procedure WB_InsertRadio();
begin
   (Form1.WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertInputRadio‘, True, ‘‘);
end;

procedure WB_InsertInputText();
begin
   (Form1.WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertInputText‘, True, ‘‘);
end;

procedure WB_InsertTextArea();
begin
   (Form1.WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertTextArea‘, True, ‘‘);
end;

procedure WB_InsertInputPassword();
begin
   (Form1.WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertInputPassword‘, True, ‘‘);
end;

procedure WB_InsertIFrame();
begin
   (Form1.WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertIFrame‘, True, ‘‘);
end;

procedure WB_InsertSelectListbox();
begin
   (Form1.WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertSelectListbox‘, True, ‘‘);
end;

procedure WB_InsertSelectDropdown();
begin
   (Form1.WebBrowser1.Document as IHTMLDocument2).execCommand(‘InsertSelectDropdown‘, True, ‘‘);
end;

a

來自為知筆記(Wiz)