Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Заполнение полей формы в TWebBrowser методом Drag-and-Drop

Delphi , Синтаксис , Drag and Drop

Заполнение полей формы в TWebBrowser методом Drag-and-Drop

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  This example shows how to fill out fields in your webbrowser by 
  dragging the content of Label1 to a field of your webbrowser}

 { 
  Mit diesem Beispiel kann der Inhalt von Label1 per Drag & Drop 
  in die Edit Felder gefullt werden. 
}


 procedure TForm1.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;

Статья Заполнение полей формы в TWebBrowser методом Drag-and-Drop раздела Синтаксис Drag and Drop может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Drag and Drop ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
22.09.2020 11:38:58/0.011092901229858/0