|
답변 감사합니다.
메인 프로그램이 아닌 생성한 폼이 다섯개면 프로세스쪽말고 Application탭에 다섯개의 폼이 나와있는데
그걸 클릭해서 폼을 하나씩 죽일수는 없는건가요?
Lyn 님이 쓰신 글 :
: 프로세스(태스크) 가 죽으면 당연히 거기에 속해있던 폼들은 다 닫히고 해제되는게 당연합니다.
:
: 폼 여러개 띄웠다고 그게 따로도는게 아닙니다.
:
: 메인프로그램이 죽어도 나머지가 안죽게 하시려면 멀티프로세스구조(여러개의 exe) 로 가셔야합니다.
: 공윤경 님이 쓰신 글 :
: : //---------------------------------------------------------------------------
: : //MAIN.CPP
: : #include <vcl.h>
: : #pragma hdrstop
: :
: : #include "main.h"
: : #include "Sub.h"
: : //---------------------------------------------------------------------------
: : #pragma package(smart_init)
: : #pragma resource "*.dfm"
: : TSDIMainForm *SDIMainForm;
: : //---------------------------------------------------------------------------
: : __fastcall TSDIMainForm::TSDIMainForm(TComponent* Owner)
: : : TForm(Owner)
: : {
: : }
: : void __fastcall TSDIMainForm::WMUserMessage(TMessage &msg)
: : {
: : CreateSubForm();
: : }
: : //---------------------------------------------------------------------------
: : void __fastcall TSDIMainForm::CreateSubForm(void)
: : {
: : m_FormNumber++;
: : AnsiString str = "SDIアプリｻﾝﾌﾟﾙ["+IntToStr(m_FormNumber)+"]";
: : TSDISubForm *sForm;
: : sForm = new TSDISubForm(this);
: : sForm->Show();
: : sForm->Caption = str;
: : }
: : //---------------------------------------------------------------------------
: : void __fastcall TSDIMainForm::FormCreate(TObject *Sender)
: : {
: : m_FormNumber = 0;
: : CreateSubForm();
: : }
: : //---------------------------------------------------------------------------
: : //---------------------------------------------------------------
: : //MAIN.H
: :
: : #ifndef mainH
: : #define mainH
: : //---------------------------------------------------------------------------
: : #include <Classes.hpp>
: : #include <Controls.hpp>
: : #include <StdCtrls.hpp>
: : #include <Forms.hpp>
: : #define message WM_USER + 50
: : //---------------------------------------------------------------------------
: : class TSDIMainForm : public TForm
: : {
: : __published: // IDE 管理のコンポーネント
: : void __fastcall FormCreate(TObject *Sender);
: : private: // ユーザー宣言
: : void __fastcall WMUserMessage(TMessage &msg);
: : BEGIN_MESSAGE_MAP
: : MESSAGE_HANDLER(message, TMessage, WMUserMessage)
: : END_MESSAGE_MAP(TForm);
: : public: // ユーザー宣言
: : __fastcall TSDIMainForm(TComponent* Owner);
: :
: : int m_FormNumber;
: : void __fastcall CreateSubForm(void);
: :
: : };
: : //---------------------------------------------------------------------------
: : extern PACKAGE TSDIMainForm *SDIMainForm;
: : //---------------------------------------------------------------------------
: : #endif
: :
: :
: :
: :
: : //---------------------------------------------------------------------------
: : //SUB.CPP
: : #include <vcl.h>
: : #pragma hdrstop
: :
: : #include "Sub.h"
: : #include "main.h"
: : #include <Windows.hpp>
: : //---------------------------------------------------------------------------
: : #pragma package(smart_init)
: : #pragma resource "*.dfm"
: : TSDISubForm *SDISubForm;
: : //---------------------------------------------------------------------------
: : __fastcall TSDISubForm::TSDISubForm(TComponent* Owner)
: : : TForm(Owner)
: : {
: : }
: : //---------------------------------------------------------------------------
: : bool __fastcall TSDISubForm::IsLastForm(TForm* form)
: : {
: : bool bRst = true;
: : TForm *sForm;
: : for(int idx = 0; idx < Screen->FormCount ; idx++)
: : {
: : sForm = Screen->Forms[idx];
: : if((sForm != form)&&(sForm->Visible == true)&&
: : (sForm->ParentWindow == 0 || sForm->HandleAllocated() || (IsChild(sForm->Handle,sForm->ParentWindow)==false))) {
: : bRst = false;
: : break;
: : }
: : }
: : return bRst;
: : }
: :
: : void __fastcall TSDISubForm::subNewClick(TObject *Sender)
: : {
: : SDIMainForm->CreateSubForm();
: : }
: : //---------------------------------------------------------------------------
: :
: : void __fastcall TSDISubForm::subCloseClick(TObject *Sender)
: : {
: : Close();
: : }
: : //---------------------------------------------------------------------------
: :
: : void __fastcall TSDISubForm::subAllCloseClick(TObject *Sender)
: : {
: : Application->Terminate();
: : }
: : //---------------------------------------------------------------------------
: : // ウィンドウ復帰
: : //---------------------------------------------------------------------------
: : void __fastcall TSDISubForm::RestoreWind(void)
: : {
: : int nWin = Screen->FormCount;
: : HWND hWnd;
: : for(int idx = 0; idx < Screen->FormCount; idx++)
: : {
: : hWnd = Screen->Forms[idx]->Handle;
: : //WindowがNormalではない場合
: : if(Screen->Forms[idx]->WindowState != wsNormal) {
: : if(GetClassNameStr(hWnd) == this->ClassName()) {
: :
: : DefWindowProc(hWnd,WM_SYSCOMMAND,SC_RESTORE,0);
: : }
: : }
: : }
: : }
: : //---------------------------------------------------------------------------
: : void __fastcall TSDISubForm::subCascadeClick(TObject *Sender)
: : {
: : RestoreWind();
: : int nWin = Screen->FormCount;
: : HWND *WndHandleList;
: : WndHandleList = new HWND[nWin];
: : for(int idx = 0; idx < Screen->FormCount; idx++)
: : {
: : WndHandleList[idx] = Screen->Forms[idx]->Handle;
: : SetForegroundWindow(WndHandleList[idx]);
: : }
: :
: : CascadeWindows(0,
: : NULL,//MDITILE_SKIPDISABLED
: : NULL,
: : Screen->FormCount,
: : WndHandleList);
: : SetForegroundWindow(Handle);
: : delete [] WndHandleList;
: : }
: : //---------------------------------------------------------------------------
: :
: : void __fastcall TSDISubForm::subTileVerticalClick(TObject *Sender)
: : {
: : RestoreWind();
: : int nWin = Screen->FormCount;
: : HWND *WndHandleList;
: : WndHandleList = new HWND[nWin];
: : for(int idx = 0; idx < Screen->FormCount; idx++)
: : {
: : WndHandleList[idx] = Screen->Forms[idx]->Handle;
: : SetForegroundWindow(WndHandleList[idx]);
: : }
: :
: : TileWindows( 0,
: : MDITILE_VERTICAL,//MDITILE_SKIPDISABLED
: : NULL,
: : Screen->FormCount,
: : WndHandleList
: : );
: : delete [] WndHandleList;
: : SetForegroundWindow(Handle);
: : }
: : //---------------------------------------------------------------------------
: :
: : void __fastcall TSDISubForm::subTileHorizontalClick(TObject *Sender)
: : {
: : RestoreWind();
: : int nWin = Screen->FormCount;
: : HWND *WndHandleList;
: : WndHandleList = new HWND[nWin];
: : for(int idx = 0; idx < Screen->FormCount; idx++)
: : {
: : WndHandleList[idx] = Screen->Forms[idx]->Handle;
: : SetForegroundWindow(WndHandleList[idx]);
: :
: : }
: : TileWindows(0,
: : MDITILE_HORIZONTAL,//MDITILE_SKIPDISABLED
: : NULL,
: : Screen->FormCount,
: : WndHandleList
: : );
: : delete [] WndHandleList;
: : SetForegroundWindow(Handle);
: : }
: : //---------------------------------------------------------------------------
: :
: : void __fastcall TSDISubForm::subAllMinClick(TObject *Sender)
: : {
: : HWND hWindow;
: : for(int idx = 0; idx < Screen->FormCount; idx++)
: : {
: : hWindow = Screen->Forms[idx]->Handle;
: : if(GetClassNameStr(hWindow) == this->ClassName()) {
: : PostMessage(hWindow,WM_SYSCOMMAND,SC_MINIMIZE,0);
: : }
: : }
: : }
: : //---------------------------------------------------------------------------
: : String __fastcall TSDISubForm::GetClassNameStr(HWND hWindow)
: : {
: : int Len;
: :
: : char *Buffer;
: : String Result;
: : Buffer = StrAlloc(MAX_PATH);
: : try {
: : Len = GetClassName(hWindow,Buffer,StrBufSize(Buffer));
: : Result = Buffer;
: :
: : }__finally{
: : StrDispose(Buffer);
: : return Result;
: : }
: : }
: :
: : void __fastcall TSDISubForm::FormClose(TObject *Sender,
: : TCloseAction &Action)
: : {
: : if(IsLastForm(this)) {
: : Application->Terminate();
: : }
: : }
: : //---------------------------------------------------------------------------
: :
: : void __fastcall TSDISubForm::FormShow(TObject *Sender)
: : {
: : ShowWindow(Application->Handle,SW_HIDE);
: : if(!NotFirstForm) {
: : NotFirstForm = true;
: : switch(CmdShow)
: : {
: : case SW_SHOWMINNOACTIVE:
: : WindowState = wsMinimized;
: : break;
: : case SW_SHOWMAXIMIZED:
: : WindowState = wsMaximized;
: : break;
: : }
: : }
: : }
: : //---------------------------------------------------------------------------
: : void __fastcall TSDISubForm::CreateParams(TCreateParams &Params)
: : {
: : TForm::CreateParams(Params);
: : if(FormStyle == fsNormal || FormStyle == fsStayOnTop) {
: : if(BorderStyle == bsSingle || BorderStyle == bsSizeable) {
: : Params.ExStyle = Params.ExStyle |WS_EX_APPWINDOW;
: : Params.WndParent = 0;
: : }
: : }
: : }
: :
: : //SUB.h
: : //---------------------------------------------------------------------------
: :
: : #ifndef SubH
: : #define SubH
: : //---------------------------------------------------------------------------
: : #include <Classes.hpp>
: : #include <Controls.hpp>
: : #include <StdCtrls.hpp>
: : #include <Forms.hpp>
: : #include <Menus.hpp>
: : //---------------------------------------------------------------------------
: : class TSDISubForm : public TForm
: : {
: : __published: // IDE 管理のコンポーネント
: : TMainMenu *MainMenu1;
: : TMenuItem *MenuFile;
: : TMenuItem *subNew;
: : TMenuItem *subClose;
: : TMenuItem *subAllClose;
: : TMenuItem *N3;
: : TMenuItem *Show1;
: : TMenuItem *subCascade;
: : TMenuItem *subTileVertical;
: : TMenuItem *subTileHorizontal;
: : TMenuItem *subAllMin;
: : void __fastcall subNewClick(TObject *Sender);
: : void __fastcall subCloseClick(TObject *Sender);
: : void __fastcall subAllCloseClick(TObject *Sender);
: : void __fastcall subCascadeClick(TObject *Sender);
: : void __fastcall subTileVerticalClick(TObject *Sender);
: : void __fastcall subTileHorizontalClick(TObject *Sender);
: : void __fastcall subAllMinClick(TObject *Sender);
: : void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
: : void __fastcall FormShow(TObject *Sender);
: : private: // ユーザー宣言
: : bool __fastcall TSDISubForm::IsLastForm(TForm *form);
: : void __fastcall TSDISubForm::RestoreWind(void);
: : protected:
: : String __fastcall GetClassNameStr(HWND hWindow);
: : void __fastcall CreateParams(TCreateParams ¶ms);
: : public: // ユーザー宣言
: : __fastcall TSDISubForm(TComponent* Owner);
: : bool NotFirstForm;
: : };
: : //---------------------------------------------------------------------------
: : extern PACKAGE TSDISubForm *SDISubForm;
: : //---------------------------------------------------------------------------
: : #endif
: :
: :
: : //PROJ
: : //---------------------------------------------------------------------------
: :
: : #include <vcl.h>
: : #pragma hdrstop
: : USERES("prjSdi.res");
: : USEFORM("main.cpp", SDIMainForm);
: : USEFORM("Sub.cpp", SDISubForm);
: : //---------------------------------------------------------------------------
: : BOOL IsPrevAppExist(const char * mutextname)
: : {
: : bool bRst = false;
: : CreateMutex(NULL, true, mutextname);
: : if (GetLastError() == ERROR_ALREADY_EXISTS) {
: : bRst = true;
: : }
: : return bRst;
: : }
: : WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
: : {
: : HANDLE mutex;
: : HWND hWindow;
: : try
: : {
: : const char * mutexname= "SDIFORM";
: : if(IsPrevAppExist(mutexname)) {
: : hWindow = FindWindow("TSDIMainForm",NULL);
: : SetForegroundWindow(hWindow);
: : SendMessage(hWindow, WM_USER+50,0,0);
: : }
: : else {
: : SetProp(Application->Handle,PChar(mutexname),mutex);
: : Application->Initialize();
: : Application->CreateForm(__classid(TSDIMainForm), &SDIMainForm);
: : Application->ShowMainForm = false;
: : Application->Run();
: : RemoveProp(Application->Handle, PCHAR(mutexname));
: : }
: : }
: : catch (Exception &exception)
: : {
: : Application->ShowException(&exception);
: : }
: : ReleaseMutex(mutex);
: : return 0;
: : }
: : //---------------------------------------------------------------------------
: : 안녕하세요? 공윤경이라고 합니다.
: : 프로그램의 테스크메니져로부터의 종료시 문제
: :
: : 테스크메니져서에 프로세스에서는 하나의 EXE화일이 보이고
: : 어플리케이션에서 동적으로 생성한 폼의 이름이 보여서.
: : 어플리케이션부에서 하나씩 클릭해서 종료가능한 프로그램을 작성중입니다.
: : 코드에 이상이 있나요? 실행 + 종료등 아무에러가 없는데
: : 테스트매니져서에서 프로그램을 종료시키면 에러가 발생하고 프로그램이 전부 종료됩니다.
: : 메인폼과 서브폼으로 이루어져서 실행시 메인폼은 보이지않고
: : 서브폼이 뜹니다. 그이후에도 서브폼으로부터 서브폼을 추가하는 형태의 프로그램입니다.
: :
: : 뭔가 제가 잘못생각한 부분이 있는지...
: :
: : 잘부탁드립니다 ^^
|
