Q&A

  • panel위에 서브폼을 올릴때
어려움이 있을때마다 이곳에 문을 두드립니다.
다름이 아니라 아래와 같이 서브폼을 호출하였거든요.
메인폼의 판넬위에 서브폼을 올려서요,
그런데 호출되기는 하지만 문제는
서브폼의 컴포넌트들이 전혀 제기능을 못한다는 겁니다.
여를들자면 서브폼에 메모컴포넌트다 에디트컴포넌트가
있다면 전혀 입력할수 없다는것이지요.,
무엇이 잘못되었는지 도움 부탁드립니다.,

procedure TTesForm.ToolButton1Click(Sender: TObject);
var
  ab: TSecondForm;
  h: HWND;
begin
  h := Application.Handle;
  if (Application.Handle = 0) then
    Application.Handle := GetParent(Handle);
  ab := TSecondForm.Create(Panel1);
  ab.Parent := Panel1;
  ab.Left := 0;
  ab.Top := 0;
  ab.Visible := true;
  Application.Handle := h;
end;
1  COMMENTS