VPF::Ctrl+C всёравно не пашет - Форум программистов

xoslv

Дата 13.1.2007, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 12.1.2007

Репутация: нет
Всего: нет

Цель: Добится чтобы в броузере работала комбинация Ctrl+C & Ctrl+V
Вот мой код:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, ActiveX, StdCtrls, ComCtrls, Gauges;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
      procedure FormCreate(Sender: TObject);
      procedure FormActivate(Sender: TObject);
      procedure FormDeactivate(Sender: TObject);
      procedure FormClose(Sender: TObject; var Action: TCloseAction);
      procedure MyMessageHandler(var Msg: TMsg; var Handled: Boolean);
  private
    { Private declarations }
    FOleInPlaceActiveObject: IOleInPlaceActiveObject;
      procedure MsgHandler(var Msg: TMsg; var Handled: Boolean);

  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Flags: OLECMDF;
  FOleInPlaceActiveObject: IOleInPlaceActiveObject;
  SaveMessageHandler: TMessageEvent;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Flags, TargetFrameName, PostData, Headers: OleVariant;
begin 
  Application.OnMessage := MsgHandler;
  WebBrowser1.Navigate('http://forum.vingrad.ru/', Flags,
  TargetFrameName, PostData, Headers);

end;

// nachalo Masiva dlja knopki "ENTER" (GOOD, work)...
procedure TForm1.MsgHandler(var Msg: TMsg; var Handled: Boolean);
var 
  iOIPAO: IOleInPlaceActiveObject; 
  Dispatch: IDispatch;
begin 
  if not Assigned(WebBrowser1) then 
  begin
    Handled := False; 
    Exit; 
  end;

  Handled := (IsDialogMessage(WebBrowser1.Handle, Msg) = True); 

  if (Handled) and (not WebBrowser1.Busy) then 
  begin 
    if FOleInPlaceActiveObject = nil then
    begin 
      Dispatch := WebBrowser1.Application; 
      if Dispatch <> nil then
      begin 
        Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO); 
        if iOIPAO <> nil then
          FOleInPlaceActiveObject := iOIPAO; 
      end; 
    end;

    if FOleInPlaceActiveObject <> nil then
      if ((Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP)) and
        ((Msg.wParam = VK_BACK) or (Msg.wParam = VK_LEFT) or (Msg.wParam = VK_RIGHT)) then
        //nothing - do not pass on Backspace, Left or Right arrows
      else
        FOleInPlaceActiveObject.TranslateAccelerator(Msg);
  end;
end;
// konec Masiva dlja knopki "ENTER" (GOOD, work)...

// nachalo dlja massiva Ctrl+C i t.d....
procedure TForm1.FormActivate(Sender: TObject);
begin
 SaveMessageHandler := Application.OnMessage;
 Application.OnMessage := MyMessageHandler;
end;

procedure TForm1.FormDeactivate(Sender: TObject);
begin
  Application.OnMessage := SaveMessageHandler;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.OnMessage := SaveMessageHandler;
  FOleInPlaceActiveObject := nil;
end;

procedure TForm1.MyMessageHandler(var Msg: TMsg; var Handled: Boolean);
var
  iOIPAO: IOleInPlaceActiveObject;
  Dispatch: IDispatch;
begin
   { exit if we don't get back a webbrowser object }
   if WebBrowser1 = nil then
   begin
   Handled := False;
   Exit;
   end; Handled:=(IsDialogMessage(WebBrowser1.Handle, Msg) = True); if (Handled) and (not WebBrowser1.Busy) then
   begin
   if FOleInPlaceActiveObject = nil then
   begin
   Dispatch := WebBrowser1.Application;
   if Dispatch < > nil then
   begin
   Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO);
   if iOIPAO < > nil then
   FOleInPlaceActiveObject := iOIPAO;
   end;
end;
if FOleInPlaceActiveObject < > nil then
  if ((Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP)) and
   ((Msg.wParam = VK_BACK) or (Msg.wParam = VK_LEFT) or (Msg.wParam = VK_RIGHT)) then
   //nothing - do not pass on Backspace, Left or Right arrows
  else
    FOleInPlaceActiveObject.TranslateAccelerator(Msg);
  end;
end;
// konec dlja massiva Ctrl+C i t.d....
end.

Подскажите пожалуйста где ошибка.... Я немогу понять...
Зарание спасибо!

Это сообщение отредактировал(а) xoslv - 13.1.2007, 15:26

--------------------

Не всё то маздай, что синее!