초보 wrote:

> 안녕하세요 늘 질문만 올립니다..

> 프로그램이 실행될때 폼자체를 보이지 않게 실행시켜서

> 특정 키를 눌렀을때 보여지게 하고 싶은데

> 어떻게 해야하는지요?

> 아시는분 가르쳐 주세요..

>



-------------------------------------------------------------------



폼의 좌표를 음수로 바꿔주시고 KeyPress이벤트를 사용해서 원하는 키값일때 원래 좌표로 바꾸세요...

예)Form.left := -1000; ......

Q&A 검색을 활용하시면 이런 질문을 안 올리고도 충분히 활용을

하셨을텐데... 안타깝군요...



구창민님의 예제를 참조하여 만들어 보았습니다.



먼저 프로젝트 파일을 열어서 편집을 하여야 합니다.



***************************************************

프로젝트 유닛

***************************************************

program Project1;



uses

Forms, Windows, // Windows 유닛 추가

Unit1 in 'Unit1.pas' {Form1},



{$R *.RES}



begin

Application.Initialize;

// 아래의 함수를 추가하면 작업표시줄에 보이지 않게 됩니다.

SetWindowLong(Application.Handle,GWL_EXSTYLE,

GetWindowLong(Application.Handle,GWL_EXSTYLE)

or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);

Application.CreateForm(TForm1, Form1);

Application.Run;

end.



***************************************************

폼 유닛

***************************************************

unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls;



type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

protected

MyHotKey: ATOM; // 핫키값 저장 변수

IsFirstActivate: Boolean; // 폼이 처음 실행됐는가를 판단하는변수

procedure WMHotKey(var msg: TWMHotKey); message WM_HotKey;

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

// 핫키등록. 여기에서 핫키가 등록되지 않으면 폼을 활성화 시킬수 있는 방법이

// 없게 됩니다.

MyHotKey := GlobalAddAtom('MyHotKey');

// 핫키는 Ctrl-Z으로 설정했습니다. 원하시는 핫키로 바꾸세요...

if not RegisterHotKey(Handle, MyHotKey, MOD_CONTROL, Integer('Z')) then

ShowMessage('HotKey Registration Failed');

IsFirstActivate := True;

Deactivate;

end;



procedure TForm1.FormActivate(Sender: TObject);

begin

if IsFirstActivate then

begin

IsFirstActivate := False;

// 폼을 감춥니다. Alt-TAB을 눌러도 보이지 않습니다.

ShowWindow(Handle, SW_HIDE);

end;

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

// 등록된 핫키를 제거합니다.

UnRegisterHotKey(Handle, GlobalDeleteAtom(MyHotKey));

end;



procedure TForm1.WMHotKey(var msg: TWMHotKey);

begin

// 핫키가 눌려지면 폼을 보이게 합니다.

ShowWindow(Handle, SW_SHOW);

Application.BringToFront;

end;



end.





초보 wrote:

> 안녕하세요 늘 질문만 올립니다..

> 프로그램이 실행될때 폼자체를 보이지 않게 실행시켜서

> 특정 키를 눌렀을때 보여지게 하고 싶은데

> 어떻게 해야하는지요?

> 아시는분 가르쳐 주세요..

>

최용일님이 답변해 주신 소스 그대로 복사해서 붙여서 실행했는데도

폼이 보여지는데요... 최용일님은 되던가요?

시험삼아 새 어플리케이션에서 해보았는데 안돼요..

뭐가 잘못된 건가요?

그럴리가요... 안돼신다길래 저도 이걸 그대로 복사해서 실행해보았는데

폼이 안보이던데요......



아마도 저의 설명이 부족했던것 같습니다...



그대로 복사하시는 것까진 맞습니다. 그리고 한가지를 더 추가해야 되는데



이걸 빠트리신것 같군요...



폼의 이벤트를 설정하는 겁니다. 소스상에는 이벤트가 있지만 제대로 링크를



안하신것 같군요.. 오브젝트 인스펙터 창에서 폼의 OnCreate, OnActivate,

OnDestroy이벤트를 FormCreate, FormActivate, FormDestroy로 설정하십시오.

그리고나서 실행해보세요...



제가 다시한번 테스트해 보았지만 이상이 없습니다.



초보 wrote:

> 최용일님이 답변해 주신 소스 그대로 복사해서 붙여서 실행했는데도

> 폼이 보여지는데요... 최용일님은 되던가요?

> 시험삼아 새 어플리케이션에서 해보았는데 안돼요..

> 뭐가 잘못된 건가요?

>

가만 보니까 이벤트연결이 안되었더라구요.. 아이 쪽팔려라..^^

언제 초보신세 면할지원...

담에 또 답변 많이많이 주세요... 그럼...