[Almagel]

Здравствуйте!!! незнал куда написать и решил сюда надеюсь форум своей темой не засру....
Вобщем возникла одна проблема. Задался я как-то идеей написать что-то типо клиента для браузерной игры. Понял что надо использовать WebBrowser и все получилось с первого раза, но вот незадача, управление персонажем просходит нажатием на стрелочки, а когда я нажимаю на них, то просто выделяестся что-нибудь другое или вообще ничего не происходит, эта же беда и backspase-ом, искал долго в инете но нашел только 1 готовуб прогу на базе делфи и там все работало как надо, но исходников небыло. Вобщем прошу помощи помогите что там нужно сделать чтобы игра поняла что я от нее хочу=))



вот код весь что надо добавить чтобы стрелочки с backspase-ом начали работать как надо????

unit Unit1;

interface

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

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
ComboBox1: TComboBox;
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
WebBrowser1.Navigate(ComboBox1.Text );
end;

end.

пробовал и без ComboBox1 - неработает
я хочу нажать на клаве стрелку влева и в браузере во флеш игре персанаж движется влева вправа значит вправа ит.д.
помогите а то уже неделю мучаюсь буду очень благодарен. если можно подробее а то я почти чайник)

[angvelem]

Непонятно, каким боком ComboBox может влиять на перемещение персонажа?

[Almagel]

он то и неприче только некоторые говорят типо из-зи него теряет фокус

[angvelem]

Не вижу я у тебя никакого управления, кроме ComboBox-а. Где опрос клавиш?

[Almagel]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('mail.ru');
end;

end.

Админ: Пользуемся тегами для оформления кода!

ну вот без комбо)