megabax
|
17.04.2011 . |
New Page 2
Delphi. 7. TDXDraw.
.
TDXDraw
.
, .
TDXDraw*:

Align
alClinet, *:

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;
|
,
:

Alt+Enter
,
. ESC
.
doFullScrin
Options*:

true,
. ,
-
.
, BorderStyle
bsNone.
, *,
"Delphi",
Borland Delphi..
|
( 06.11.2011 . )
|