Текущий архив: 2010.09.19;
Скачать: CL | DM;

Вниз

Управление словарем Lingvo через Alt + щелчок мышки   Найти похожие ветки 

← →
Terpelo ©   (2010-06-27 23:31) [0]

В словаре Lingvo возможно вызвать перевод слова наведя курсор на слово и нажав Alt + щелчок мышки. Пожалуйста, подскажите как реализовать это действие методами Delphi через наведение курсора и нажатие правой кнопки мышки.

---

← →
Юрий Зотов ©   (2010-06-28 00:32) [1]


unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ComCtrls;

type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

uses
 Accessibility_TLB; // Èìïîðòèðîâàòü èç oleacc.dll

function AccessibleObjectFromPoint(Pt: TPoint; var Acc: IAccessible; var Child: Variant): HRESULT;
 stdcall; external "OleAcc.dll" name "AccessibleObjectFromPoint";

var
 OldPoint: TPoint;

procedure RecalcText(Wnd: HWND; uMsg, idEvent: UINT; dwTime: DWORD); stdcall;
var
 P: TPoint;
 A: IAccessible;
 V: Variant;
begin
 if GetCursorPos(P) and ((P.X <> OldPoint.X) or (P.Y <> OldPoint.Y)) then
 begin
   OldPoint := P;
   if Succeeded(AccessibleObjectFromPoint(P, A, V)) then
     Form1.Caption := A.accName[V]
   else
     Form1.Caption := ""
 end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 SetTimer(Handle, 1, 1000, @RecalcText)
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 KillTimer(Handle, 1)
end;

end.


---

← →
Юрий Зотов ©   (2010-06-28 00:34) [2]

Библиотеку типов Accessibility_TLB импортировать из oleacc.dll

---

← →
Германн ©   (2010-06-28 02:07) [3]

> Юрий Зотов ©

<offtop>
Однако для ситуации "забыл очки на работе" ты весьма продуктивен. Я бы так не смог.
</offtop>

---

Страницы: 1 вся ветка

Текущий архив: 2010.09.19;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.009 c