[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]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

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.

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

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