{ This example shows how to fill out fields in your webbrowser by dragging the content of Label1 to a field of your webbrowser } procedureTForm1.FormCreate(Sender: TObject); begin
label1.DragMode := dmAutomatic; end
; procedure
TForm1.WebBrowserDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var
Accept: Boolean); var
item: Variant; begin
//check if document is interactive if
(Webbrowser.ReadyState and
READYSTATE_INTERACTIVE) = 3 then
begin
item := WebBrowser.OleObject.Document.elementFromPoint(x, y); if
Source is
TLabel then
Accept := True; Accept := (item.tagname = 'INPUT') and
((item.type
= 'text') or
(item.type
= 'password')) or
(item.tagname = 'TEXTAREA'); end
; end
; procedure
TForm1.WebBrowserDragDrop(Sender, Source: TObject; X, Y: Integer); var
item: Variant; begin
//check if document is interactive if
(Webbrowser.ReadyState and
READYSTATE_INTERACTIVE) = 3 then
begin
item := WebBrowser.OleObject.Document.elementFromPoint(x, y); item.Value := label1.Caption; end
; end
;