안녕하세요 (__)

메뉴가 꽤 많은 프로그램을 짜고 있습니다

메뉴는 전부 MdiChild 로 Main Form 안에 나타나게 할려고 합니다

그래서 메뉴를 하나 클릭했을때

Mid 폼을 나타나게 하려고

procedure TMainForm.N11Click(Sender: TObject);
begin
    if ClientEntryForm = nil then  // 창이 떠있지 않으면 하나 띄우고
    begin
        ClientEntryForm := TClientEntryForm.Create(Application);
        ClientEntryForm.Show;
    end
    else    // 창이 떠 있으면 화면에 보여준다
    begin
        if ClientEntryForm.WindowState = wsMinimized then
            ClientEntryForm.windowstate := wsNormal
        else
            ClientEntryForm.show;
    end;
end;

이렇게 했습니다

머.. 결과는 이상없이 잘 나타나구여..

근데 문제는 메뉴가 많다보니까 저거랑 똑같은 코드가 메인 폼안에 잔뜩

존재한다는 겁니다

어차피 같은 형식으로 차일드를 계속 띄우니까

함수를 하나 만들려고 하는데... 이게 잘 안되네여 -_-;

        ClientEntryForm := TClientEntryForm.Create(Application);

이 부분에서 ClientEntryForm 은 TForm 형식으로 처리하니까 되던데

TClientEntryForm.Create() 부분에서는 TClientEntryForm 을 어떻게

처리해야될지 모르겠습니다

함수로 저 위에 있는 부분을 구현하려면 어떻게 해야될까여..

MDI 차일드 폼은 미리 만들어놓은 폼을 띄울 예정입니다

조언 부탁드립니다 (__)