����� ������������ ���� �� Delphi. ���� 7. ������� TDXDraw.

procedure TfrmDirectX.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);

begin

{ ��������� ������ ���������� }

if Key=VK_ESCAPE then Close;

{ �������� ����� - ��������/������������� - ALT+ENTER }

if (ssAlt in Shift) and (Key=VK_RETURN) then

  begin 

   DXDraw.Finalize;

   if doFullScreen in DXDraw.Options then

      begin

        DXDraw.Cursor := crDefault;

        BorderStyle := bsSizeable;

        DXDraw.Options := DXDraw.Options - [doFullScreen];

       end else begin

         DXDraw.Cursor := crNone;

         BorderStyle := bsNone;

         DXDraw.Options := DXDraw.Options + [doFullScreen];

       end;

   DXDraw.Initialize;

  end;

end;