was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

29 Visitors Online


 
...Eingabefelder im TWebBrowser per Drag&Drop ausfüllen?
Autor: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch
[ Tip ausdrucken ]  

Tip Bewertung (7):  
     


{
  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 gefüllt 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;


 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners