Delphi-вопрос!

Delphi-вопрос!
Я сделал управление для картинки, но она двигается либо влево либо вправо! Вот скрипт:
unit Las;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_LEFT then
Image1.Left := Image1.Left - 1;
if Key = VK_RIGHT then
Image1.Left := Image1.LEFT + 1;
if Key = VK_UP then
Image1.LEFT := Image1.Left - 1;
if Key = VK_DOWN then
Image1.LEFT := Image1.Left + 1;
end;

end.

  • Потому что ты всегда меняешь только Left. А иногда надо бы еще и Top.
  • if Key = VK_UP then
    Image1.LEFT := Image1.Left - 1;
    if Key = VK_DOWN then
    Image1.LEFT := Image1.Left + 1;
    Источник: интересно о чем думал афтор набирая эти 4 строчки из пяти всего ?