안녕하세요.

게임이 실행될 때 전체 화면을 장악(?)하는 것은 다이렉스X를 이용하기 때문에

가능한 것입니다. 이 경우 단지 화면뿐만아니라, 윈도우의 모든 자원을 단독으로 점유하는 것이 가능한 것으로 알고 있습니다.

일반 어플리케이션에서 다이렉스X를 이용하지 않고 전체 화면 모드를 구현 하는 방법은, (예를 들면 인터넷 익스플로러의 전체화면 기능과 같은) 다음의 소스를 참조 해 주시기 바랍니다.



━━━━━━━━━━━━━━━━━━━━━━━─┐

제목 : 익스플로러같은 전체 화면모드 맹글기

────────────────────────┘



// 전역 변수로 FullMode 선언

FullMode : Boolean = False;

// 중략 ....

// ........



procedure TMainForm.MenuFullModeClick(Sender: TObject);

const

Rect: TRect = (Left: 0; Top: 0; Right: 0; Bottom: 0);

begin

{ 현재 풀모드가 아니면 -> 풀모드로 맹근다... }

if Not FullMode then begin

FullMode := True; // FullMode를 True로..

BtnFullMode.Down := True; // 풀모드 버튼을 눌러진 상태로...

Rect := BoundsRect; // 폼의 경계가 되는 사각영역을 Rect에 저장해 둔다.

// 캡션바을 높이를 고려하고, Client영역의 좌표들을 고려해,

// 경계를 바꾸어주면 풀모드가 되어 버린다.

SetBounds(

Left - ClientOrigin.X,

Top - ClientOrigin.Y,

GetDeviceCaps(Canvas.handle, HORZRES) + (Width - ClientWidth),

GetDeviceCaps(Canvas.handle, VERTRES) + (Height - ClientHeight));

end

{ FullMode가 True라면 ->현재 풀모드인 상태이므로 정상모드 상태로 맹근다.}

else

begin

FullMode := False; // FullMode를 False로..

BtnFullMode.Down := False; // 풀모드 버튼을 올려주고...

// 저장해 두었던 원래 경계영역값을 대입시켜 준다.

BoundsRect := Rect;

end;

end;



프람 유수..

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━



엄태효 wrote:

> 프로그램을 실행할 때 단독으로 윈도우를 사용하고 싶습니다.

> 예를 들면 게임이 실행될때 전체 화면으로 윈도우를 장악하는 것처럼 프로그램을 만들려고 하면 어떻게 하면 될까요?

> 좋은 가르침 부탁드립니다. 꾸벅^^

헤헤..더 간단하게 해봅시다..전 말로만 설명해드릴께요..

쩝..지금 델파이가 깔려 있지 않아서리..



간단하게 처음 프로그램이 실행될때 Form.Create 부분에

현재 화면의 해상도를 읽어오도록 하는 루틴을 집어넣습니다.

그러면 아마 1024*768 과 같은 x, y 값을 얻을 수 있는데,

여기에서 lx, ly, rx, ry 값을 설정해줄 수 있겠죠..?



그리고 폼의 시스템 메뉴를 감추면 될거 같네요..