delphi управление окружностью

[tanek]

Здраствуй дорогие форумчанины.
Написала программу, которая приводит окружность в действии.
Мне нужно чтобы пользователь мог управлять этим движением с помощью стрелочек. Написала процеду KeyPress но она не работает. Помогите мне ее исправить))))
Исходный код ниже:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    StartProgramm: TMenuItem;
    exit: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure exitClick(Sender: TObject);
    procedure StartProgrammClick(Sender: TObject);
    procedure KeyPressing(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x,y:integer;
  dx,dy:integer;
implementation

{$R *.dfm}
procedure Ris(var dx,dy:integer);
begin
     // стереть окружность
  form1.Canvas.Pen.Color := form1.Color;
  form1.Canvas.Ellipse(x, y, x + 10, y + 10);
  x := x + dx; // нарисовать окружность на новом месте
  y:=y+dy;
  form1.Canvas.Pen.Color := clBlack;
  form1.Canvas.Ellipse(x, y, x + 10, y + 10);
end;

procedure TForm1.exitClick(Sender: TObject);
begin
  ShowMessage('Спасибо что использовали нашу программу');
  halt;
end;

procedure TForm1.KeyPressing(Sender: TObject; var Key: Char);
begin
   if key=#72 then 
      begin
        dy:=-20;     
        dx:=0;
      end;
      if key=#80 then 
      begin
        dy:=20;       
        dX:=0;
      end;
      if key=#75 then 
      begin
        dx:=-20;      
        dy:=0;
      end;
      if key=#77 then 
      begin
        dx:=20;       
        dy:=0;
      end;
end;

procedure TForm1.StartProgrammClick(Sender: TObject);
begin
  x := 0;
  y := 10;
  dx := 5;
  timer1.Interval := 50; // период возникновения события OnTimer - 0.5 сек
  form1.canvas.brush.color := form1.color;

end;

procedure Tform1.Timer1Timer(Sender: TObject);
begin
  Ris(dx,dy);
end;

end.

Если кто нибудь знает помогите написать управление цветом по такому же принципу.
Заранее вам благодарна))))

[RUSt88]

обрабатывай события нажатия клавиш в другом обработчике
TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
здесь можно регулировать чтоб обработка клавиш была только при нажатом Shift или Ctrl

а то твой обработчик keypressing не получает управления в программе нигде

[tanek]

RUSt88 а какие теперь буду коды клавиш? а то он мне пишит не соответствие типов

[RUSt88]

посмотри виртуальные клавиши здесь и сравнивай переменную key с нужной клавишей
http://api.farmanager.com/ru/winapi/...lkeycodes.html

у мя delphi 2010 так что могу так (остальные версии не знаю)

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VkKeyScan('a') then ShowMessage('sdsd');
end;

сделай так набери vk в пройедуре и нажми Ctrl+Пробел

[tanek]

я зделала как вы сказали но все равно не работает

procedure TForm1.KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if key=VkKeyScan(#72) then 
      begin
        dy:=-20;     
        dx:=0;
      end;
      if key=VkKeyScan(#80) then 
      begin
        dy:=20;       
        dX:=0;
      end;
      if key=VkKeyScan(#75) then 
      begin
        dx:=-20;      
        dy:=0;
      end;
      if key=VkKeyScan(#77) then 
      begin
        dx:=20;       
        dy:=0;
      end;
end;

[RUSt88]

#72 - это аски код английского алфавита, а у тебя по ходу язык то стоит русский, потому и не работает

используй функцию получения кода клавиши, ща не помню как пишется

[tanek]

нет..... у меня стоит английская расскладка и он все равно не работает.... Я даже пыталась менять расскладку и бестолку

[RUSt88]

какие клавиши нужно зажимать в проге для управления?

буквы или стрелки на клаве? если буквы, то сделай так например нужно реагировать на нажатие клавиши "W", знач запишем так
if Key = VkKeyScan('w') then ShowMessage('sdsd');

если стрелки, то у них код такой
if Key = VK_LEFT then ShowMessage('sdsd');

[tanek]

спасибо вам большое.... вы мне очень помогли)))
а как мне сделать чтобы я мог изменять цвет окружности?

[RUSt88]

пропиши функцию рисования окружности с параметром-переменной цвет
напр так Ris(dx, dy, color: TColor)

когда нужно в любом месте программы изменяешь переменную на нужный цвет и всё

var a: TColor;
a:= clWhite; ну и т.п.

Ris(20, 0, a);