이동 및 크기 조정이 가능하고 활성화 된 여러 개의 '자식'양식을 포함하는 delphi 양식을 만드는 방법

Question

하나 이상의 '하위'양식을 호스팅하는 양식을 만들었습니다. 내 편집 모드에서 각 자식 폼은 테두리와 캡션 바를 표시하여 이동하고 크기를 조정할 수 있습니다 (이전 MDI 응용 프로그램과 비슷 함). 편집 모드에서 테두리가 사라지고 하위 폼이 고정됩니다. 내 간단한 데모를 위해, 나는 이렇게 자식 폼을 만드는거야 :

나는 자식 폼에서 편집 컨트롤이 활성화 결코 알 수 :

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Frm : TForm; 
begin 
    Frm := TForm3.Create(Self); 
    Frm.Parent := Self; 
    Frm.Visible := True; 

결과이 같은 레이아웃입니다. 나는 '클릭 한'폼을 클릭하면 액티브 한 앱이 움직일 때처럼 액티브 캡션 바 색상을 보여주고 싶습니다. 나는 그들이 사용하지 않기 때문에 ChildForm.SetFocus와 같은 일을 시도하는 것은 아무 것도하지 않기 때문에 ChildForm의 '시체'동작을 가정합니다.

편집 컨트롤을 활성화하고 양식 중 하나를 '선택됨'으로 표시하려면 무엇을해야합니까?

좀 더 강력한 TForm.SetFocus보다

Answer 1

VCL의 부모 역할 메커니즘으로 인해 문제가 발생합니다. 정확한 이유를 모르겠다. 다소 복잡한 메커니즘이므로 추측 할 시간이 필요하다.

당신은 API에 의해 양육하여 원하는 동작을 얻을 수 있습니다

: 당신은 고정, 부모에 의존 특성처럼, 확인을위한 VCL과 약간의 동기화를 잃게됩니다

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Frm : TForm; 
begin 
    Frm := TForm3.Create(Self); 
// Frm.Parent := Self; 
    windows.SetParent(Frm.Handle, Handle); 
    Frm.Visible := True; 

, 소유권 등 그것은 수도도

하나 개 이상의 활성 형태의 느낌을 가지고 ... 누락 된 WS_CHILD 플래그처럼 ... 그것을 시도하고 그것이 당신의 요구에 작동하는지, API에 대한 문제가 될, 당신은 그들 중 하나를 말할 수 그에 따라 칠하기 :

SendMessage(Frm.Handle, WM_NCACTIVATE, WPARAM(True), 0); 

어떤 양식이이 메시지를 받으면 클라이언트가 아닌 영역을 재 활성화하여 해당 (추정 됨) 활성화 상태를 반영합니다. wParam에 'false'를 전달하면 그 반대가 발생합니다.

Answer 2

전화 Windows.SetFocus(Form.Handle) (정말 너무 가능하면 하나 이상의 양식을 '선택'하고 싶습니다). 특히 Windows.SetFocus은 포커스가있는 상태에서 비활성 상태 인 양식을 활성화하여 주된 문제점이라고 생각합니다.

두 개 이상의 양식을 사용하는 것이 잘못되었습니다.

마지막으로 MDI 사용을 고려 했습니까? 여전히 작동합니다.

Answer 3

MDI가 가장 쉬운 방법이라고 생각합니다. 주 양식 SetStyle = fsMDIForm, 하위 FormStyle = fsMDIChild.

그렇습니다. 이렇게하면 부모가 작동하도록 설정하지 않아도됩니다.