PascalABC.NET - Нажатие на клавиши в Windows Forms

Кто может написать код, который при нажатии стрелочки влево делает значение Visible у pictureBox1 true. Буду благодарен за помощь.

При отпускании кнопки влево - отображает picturebox, вправо - скрывает.
Если больше подходит нажатие - вместо f.KeyUp поставьте f.KeyDown
---
{$apptype windows}
{$reference System.Drawing.dll}
{$reference .Forms.dll}

uses System, , .Forms, System.Drawing;
begin
var f:= new Form();

var p:= new PictureBox();
{ Путь сами поставьте какой надо }
p.Image:= Image.FromFile('C:\Windows\Web\Wallpaper\Windows\img0.jpg');
p.Visible:= false;
p.SizeMode:= PictureBoxSizeMode.StretchImage;
f.Controls.Add(p);

f.KeyUp += procedure (sender: object; e: KeyEventArgs) →
case e.KeyCode of
Keys.Left: p.Visible:= true;
Keys.Right: p.Visible:= false;
end;

f.ShowDialog();
end.

Добавить комментарий