Движение квадратика

[artemavd]

Здравствуйте! Не получается сделать следующее. Нужно нажатием клавиш-стрелок на клавиатуре заставить перемещаться квадратик по Image1, и, если квадратик "встречает" на своем пути кружок (или "похожее что-то на кружок), то этот квадратик бы "подгонялся бы под размеры кружочка, тем самым кружочек становился бы вписанным в квадратик. Не получается отследить нажатие клавиш-стрелок на клавиатуре. Подскажите пожалуйста?

[IT-man]

копайте в сторону TapplicationEvents

[artemavd]

А может пример есть?

[Stilet]

Намекаю:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Shape1: TShape;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 KeyPreview:=true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 case key of
  vk_Left:Shape1.Left:=Shape1.Left-10;
  ...
 end;
end;

end.

Идея ясна?

[IT-man]

вот и пример

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  if Msg.message = WM_KEYDOWN then
    begin
      if Msg.wParam in [VK_LEFT] then ....;
      if Msg.wParam in [VK_RIGHT] then ....;
      if (Msg.wParam in [VK_SPACE]) then ....;
      if Msg.wParam in [VK_ESCAPE] then
        begin
       ...
end;
end;

[W0LF]

ТС, зделал, все предельно просто до ужаса...
Stilet как всегда прав)

[artemavd]

W0LF, но в Вашем примере, когда квадратик соприкасается с окружностью, не подгоняется под размеры кружочка, т.е. кружок не вписывается в квадратик. То, что он движется-то стрелками это хорошо.

Идея ясна?

Неа)). Что значит эта строчка?

KeyPreview:=true;

[Stilet]

Что значит эта строчка?

Значит что когда ты нажмешь клавищу - первым ее обработает форма, а уж потом передаст контролу, у которого фокус. Короче так твоя форма становится ловцом нажатий.

[artemavd]

Значит что когда ты нажмешь клавищу - первым ее обработает форма, а уж потом передаст контролу, у которого фокус. Короче так твоя форма становится ловцом нажатий.

Терь понял тебя
Но вопрос-то о квадратике остается открытым).

[SERG1980]

Может так. Блин зачем сделали сообщение не менее 10 символов