TForm이 메인 윈도우 뒤에 숨어 있습니다.

Question

owlNext로 만든 기본 폼이 있는데,이 폼은 vcl에서 만들어진 대화 상자를 호출합니다.

MyOtherFormClass Form2=new Form2(); 
void MyMainForm::ShowForm2(void) { 
    Form2->ShowDialog(this); 
} 
class MyOtherFormClass { 
    [...] 
    TForm *myForm; 

    void ShowDialog(TWindow* parent){ 

    TForm* tf = new TForm((HWND)NULL); 
    tf->ParentWindow=parent->Handle; 

    myForm= new TForm(tf); 
    myForm->Parent=tf->Parent; 
    myForm->Caption = "Form2"; 
    myForm->Height = 950; 
    myForm->Width = 1350; 
    myForm->BorderIcons << biMinimize << biMaximize << biSystemMenu; 
    myForm->BorderStyle = bsSizeable; 
    myForm->Show(); 
} 
} 

이제 새 작업 표시 줄 입력 창이 있습니다.
Main-WIndow를 클릭하면 Form2가 나타납니다.
그러나 Form2를 클릭하면 Main 뒤에 유지됩니다.
또한 Form2가 경고를 표시하면 경고를 닫으면 Form2 대신 Main이 포커스를받습니다.

MessageBox(NULL, "An Alert!", "!", MB_OKCANCEL) 

여기 내가 뭘 잘못했는지 말해 줄 수 있습니까?

Answer 1

왜 2 TForm 개체를 만드나요? 당신은 너무 myForm는 할당 된 부모 윈도우, 당신을 추적하지 않습니다 단지 소유자가없는, (BTW, 당신은 TForm(HWND) 생성자에 parent->Handle를 전달할 수 있습니다) tf->ParentWindow가 사용되기 때문에 1

tf->Parent이 NULL이 필요합니다. 소유자와 부모는 서로 다른 두 가지입니다. MainForm이 Form2 창의 부모가되기를 원할 것입니다.

MessageBox() 호출에 대해서는 소유자 윈도우를 제공하지 않습니다. 당신은 그렇게하기 위해 어느 윈도우가 앞에 있는지, 그리고 더 중요한 것은 닫을 때 어느 윈도우를 집중해야 하는지를 알 수 있도록해야합니다.

MyOtherFormClass *Form2 = new MyOtherFormClass(); 

void MyMainForm::ShowForm2(void) { 
    Form2->ShowDialog(this); 
} 

class MyOtherFormClass { 
    //... 
    TForm *myForm; 

    void ShowDialog(TWindow* parent) { 
     myForm = new TForm(parent->Handle); 
     myForm->Caption = "Form2"; 
     myForm->Height = 950; 
     myForm->Width = 1350; 
     myForm->BorderIcons = TBorderIcons() << biMinimize << biMaximize << biSystemMenu; 
     myForm->BorderStyle = bsSizeable; 
     myForm->Show(); 
    } 
}; 

MessageBox(myForm->Handle, "An Alert!", "!", MB_OKCANCEL);