애플리케이션의 메임폼 외의 다른 폼이 상태표시줄에 나타나길 원하는 것이라면
다음과 같은 방법으로 가능하겠군요.
소스를 좀더 정확히 이해하시려면 CreateParams 에 대해 매뉴얼이나
도움말을 충분히 보시기 바랍니다.
-------------------------------------------------------------------------------------------
type
TForm2 = class(TForm)
private
public
procedure CreateParams(var Params: TCreateParams); override;
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
ExStyle := ExStyle or WS_EX_APPWINDOW;
//
// 이 부분이 핵심입니다. 현재 생성된 폼의 부모를 바탕화면으로 지정하는 것이지요.
// 상태표시줄에는 바탕화면의 Child Window가 나타나는 것이니까요.
//
WndParent := GetDesktopwindow;
end;
end;
초보 님이 쓰신 글 :
: Taskbar에 대한 글이 있긴있는데, 새로운 폼이 생성될때마다 Taskbar를 생성하고 싶은데
: 방법이 없나요?
: ShowWindow(FORM2.handle,sw_HIDE);
: ShowWindow(FORM2.handle,sw_SHOW);
: 를 사용하면 실행파일하나에 대해서 제어가 되던데,
: 제가 원하는것은 실행파일이 실행된 상태에서 폼이 열릴때마다 만들고 싶습니다.
: 아시는분 있으면 답변좀 주세요!!!
:
|