VPF::Ввод перевода строки (Enter) в TWebbrowser

Alexeyt

Дата 5.6.2011, 16:00 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

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

Есть html страница. вики, на file-contained wiki-движке.
Т.е. сервер ему не нужен. Пользователь жалуется- не вводится перевод строки
в текст-полях. Можно разрешить ввод переводов строк?

файл могу выслать в ЛС/email.

Чучмек

Дата 5.6.2011, 21:23 (ссылка)

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

Загрузка ...

НЭТ БИЛЭТ

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

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

Можно

Код


uses
  ...,activex;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure MESS(var Msg: TMsg; var Handled: Boolean);
  public
    { Public declarations }
  end;

...
...
...

var FOleInPlaceActiveObject: IOleInPlaceActiveObject;

...
...
...

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('ya.ru');
WebBrowser1.Application.QueryInterface(IOleInPlaceActiveObject,FOleInPlaceActiveObject)  ;
application.OnMessage:=MESS;
end;

procedure TForm1.MESS(var Msg: TMsg; var Handled: Boolean);
begin
FOleInPlaceActiveObject.TranslateAccelerator(Msg);
end;

Только надо проверять существование WebBrowser1.Application/FOleInPlaceActiveObject,
а в TWebBrowser нужно передавать далеко не все сообщения.
Поищи примеры.

Это сообщение отредактировал(а) Чучмек - 5.6.2011, 21:31

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

умную мысль держи при себе, а дурной - поделись с другими

Alexeyt

Дата 6.6.2011, 08:53 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

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

Цитата

передавать далеко не все сообщения.

проверять Msg.Msg=wm_keydown, wm_keyup ? какие именно передавать?

Чучмек

Дата 6.6.2011, 11:33 (ссылка)

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

Загрузка ...

НЭТ БИЛЭТ

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

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

Цитата(Alexeyt @ 6.6.2011, 08:53

)

wm_keydown, wm_keyup

Да.
А вообще, TranslateAccelerator передает только сообщения "Accelerator" smile

.
Это легко проверить

Код


if (Msg.message=WM_KEYDOWN) or (Msg.message=WM_KEYUP)then
    begin
    FOleInPlaceActiveObject.TranslateAccelerator(Msg);
    Handled:=true; //!!!
    end;

Если Handled:=true; то будет срабатывать только "enter", а вводится ничего не будет.
Поэтому можно оставить так как есть.
Говоря про не все, я имел в виду "только для".
isdialogmessage(webbrowser1.handle,msg);
или вроде того

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

умную мысль держи при себе, а дурной - поделись с другими

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »