You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
558 B
Plaintext
34 lines
558 B
Plaintext
unit picpop;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Graphics, Controls, Forms, ExtCtrls, Classes;
|
|
|
|
{$I NoRTTI.inc}
|
|
|
|
type
|
|
TPicFrm = class(TForm)
|
|
Image1: TImage;
|
|
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
picfrm: Tpicfrm;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TPicFrm.FormKeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
begin
|
|
if key = VK_ESCAPE then close;
|
|
end;
|
|
|
|
end.
|