Программирование - это просто
Advertisement
arrow arrow Delphi arrow Delphi. 8. TDXDraw. .
01.02.2023 .
1:
C#
Delphi
Web-
Excel-
.
Delphi. 8. TDXDraw. . E-mail
megabax   
15.06.2011 .
New Page 2

Delphi. 8. TDXDraw. .

.

, , Turbo Delphi. , , TDXDraw :

  TfrmDDDemo = class(TForm)

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

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    DXDraw:TDXDraw;

  end;

, OnCreate TDXDraw:

procedure TfrmDDDemo.FormCreate(Sender: TObject);

begin

  DXDraw:=TDXDraw.Create(self);

  DXDraw.Parent:=self;

  DXDraw.Align:=alClient;

end;

OnKeyDown :

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;

, . , Runtime DelphiX ,   "".


, *,    "Delphi", Borland Delphi.. 


 

 

( 06.11.2011 . )
 
« .   . »
 
© 2023 Программирование - это просто
Joomla! - , GNU/GPL.
© 2005-2008 Joom.Ru - Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
  .