Форум программистов [Powered by Invision Power Board]

Код

type
  TForm1 = class(TForm)

.....

  public
    item_value:Variant;

.....

if (wParam=WM_LBUTTONDOWN) then
       begin
           if Boolean(GetCursorPos(p)) then
           begin
             p.X := p.X-4;
             p.Y := p.Y-67;
             if TWebBrowser(Form1.PageControl1.ActivePage.Controls[0]).LocationURL<>'' then
             begin
               item := TWebBrowser(Form1.PageControl1.ActivePage.Controls[0]).oleobject.document.elementfrompoint(p.X, p.Y);
               if (LowerCase(item.tagname)='input')
                  and(LowerCase(item.type)<>'radio')
                  and(LowerCase(item.type)<>'button')
                  and(LowerCase(item.type)<>'submit')
                  and(LowerCase(item.type)<>'checkbox')
                  and(LowerCase(item.type)<>'file')
                  and(LowerCase(item.type)<>'hidden')
                  and(LowerCase(item.type)<>'image')
                  and(LowerCase(item.type)<>'reset')
                  and(LowerCase(item.type)<>'button')
                  or(LowerCase(item.tagname)='textarea')
               then
               begin
                 Form1.item_value:=item;
                 //Form1.item_value:='123'; // Писать в выбранное поле '123', здесь это работает
               end;
             end;
           end;
          Result := CallNextHookEx(hookid, nCode, wParam, lParam);
       end;

....


procedure TForm1.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if item_value<>0 then
    item_value.value := chr(key); // Запись в выбранное ранее поле значения из эдита, здесь это не работает
end;