greenpc
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Скопировать, удалить, вставить в TWebBrowser uses ActiveX; // Copy the selected text to the clipboard procedure TForm1.Button7Click(Sender: TObject); begin try WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER); except end; end; // Cut the selected text procedure TForm1.Button8Click(Sender: TObject); begin try WebBrowser1.ExecWB(OLECMDID_CUT, OLECMDEXECOPT_PROMPTUSER); except end; end; // Delete the selected text procedure TForm1.Button9Click(Sender: TObject); begin try WebBrowser1.ExecWB(OLECMDID_DELETE, OLECMDEXECOPT_PROMPTUSER); except end; end; initialization OleInitialize(nil); finalization OleUninitialize; end. или ----------------------------------------------- function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean; var i, j: Integer; FormItem: Variant; begin Result := False; //no form on document if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then begin Exit; end; //count forms on document for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do begin FormItem := WebBrowser.OleObject.Document.forms.Item(I); for j := 0 to FormItem.Length - 1 do begin try //when the fieldname is found, try to fill out if FormItem.Item(j).Name = FieldName then begin FormItem.Item(j).Value := Value; Result := True; end; except Exit; end; end; end; end; //When the document is complete try to fill out the field homepage with the url procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin if FillForm(WebBrowser1, 'homepage', 'http://www.swissdelphicenter.ch') = False then ShowMessage('Error. Field not available or no Form found.'); end; | Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 16:35 29-06-2006 | Исправлено: greenpc, 17:34 29-06-2006 |
|