Как клавише клавиатуры присвоить действие - вопрос №87704

1. Вот полный код. Нужно добавить две кнопки и Image компонент с вкладки additional. Только поменяйте путь к картинке для тестирования.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
     procedure OpenJpeg(Path: string);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.OpenJpeg(Path: string);
var
  JpegIm: TJpegImage;
  bm: TBitMap;
begin
  bm := TBitMap.Create;
  JpegIm := TJpegImage.Create;
  JpegIm.LoadFromFile(Path);
  bm.Assign(JpegIm);
  Image1.Picture.Bitmap := bm;
  bm.Destroy;
  JpegIm.Destroy;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenJpeg('D:\Develop\Progy\ASP.NET\MvcEntity\MvcEntity\Content\Grid\Employees\4.jpg');
end;

end.

1.

В комплект поставки Delphi входит модуль JPEG. Он позволяет работать с изображениями в формате JPEG. Эта программа открывает выбранный файл и выводит изображение на форму.

Сылка на код, для открытия каритнки

2. В свойстве формы нужно поставить KeyPreview = true. ТОгда будет срабатывать всегда при нажатии на клавишу влево. Это вызов той же  процедуры, но через клавишу

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    VK_LEFT:  Button1.Click;
  end;
end;