프레임으로 입력/수정/삭제/조회 버튼을 만들어서 MDIChild 폼에서 동적생성해서 사용하는 방법은 어떤가요?

mdi 폼에서 만든걸 말씀하신것 같네요~
제가 작업 한건뎅~ 참고하세요
<!--CodeS-->
procedure TfrmMain.buttonExecute(Sender: TObject);
begin
Case TAction(Sender).Tag of
100:Begin
//검색

If Self.ActiveMDIChild.Name = 'frmInsa' Then
Begin
If gf_Program_chk(gv_User_id, 'frmInsa' ,'Search') = True Then
frmInsa.Un_Search;
End

Else If Self.ActiveMDIChild.Name = 'frmkongsabook' Then
Begin
If gf_Program_chk(gv_User_id, 'frmkongsabook' ,'Search') = True Then
frmkongsabook.Un_Search ;
End;

End;
200:Begin
//입력
If Self.ActiveMDIChild.Name = 'frmInsa' Then
Begin
If gf_Program_chk(gv_User_id, 'frmInsa' ,'Input') = True Then
frmInsa.Un_Input;
End
Else If Self.ActiveMDIChild.Name = 'frmkongsabook' Then
Begin
If gf_Program_chk(gv_User_id, 'frmkongsabook' ,'Input') = True Then
frmkongsabook.Un_Input ;
End;

End;
300:Begin
//저장
If Self.ActiveMDIChild.Name = 'frmInsa' Then
Begin
If gf_Program_chk(gv_User_id, 'frmInsa' ,'Save') = True Then
frmInsa.Un_Save;
End
Else If Self.ActiveMDIChild.Name = 'frmkongsabook' Then
Begin
If gf_Program_chk(gv_User_id, 'frmkongsabook' ,'Save') = True Then
frmkongsabook.Un_Save ;
End;

End;
400:Begin
//삭제
If Self.ActiveMDIChild.Name = 'frmInsa' Then
Begin
If gf_Program_chk(gv_User_id, 'frmInsa' ,'Delete') = True Then
frmInsa.Un_Delete;
End
Else If Self.ActiveMDIChild.Name = 'frmkongsabook' Then
Begin
If gf_Program_chk(gv_User_id, 'frmkongsabook' ,'Delete') = True Then
frmkongsabook.Un_Delete ;
End;

End;
600:Begin
//인쇄
If Self.ActiveMDIChild.Name = 'frmInsa' Then
Begin
If gf_Program_chk(gv_User_id, 'frmInsa' ,'Print') = True Then
frmInsa.Un_Print;
End
Else If Self.ActiveMDIChild.Name = 'frmkongsabook' Then
Begin
If gf_Program_chk(gv_User_id, 'frmkongsabook' ,'Print') = True Then
frmkongsabook.Un_Print ;
End;

End;
900:Begin
//종료
if Self.MDIChildCount > 0 then
Begin
Self.ActiveMDIChild.Close;
End
else
Begin
nMsg := messagedlg('최상위 페이지입니다.'+#13+#13+ '프로그램을 종료 하시겠습니까 ?' ,mtwarning,[mbyes,mbno],0);
if nMsg = 6 then
Close;
End;
End;
end;
end;

<!--CodeE-->

위 코드 설명하자면~
처음에 액션을 만들었습니다.
액션을 연결 시켰구요~
메인에서 버튼을 클릭하면
(조회를 눌렀다 가정)
먼저 내가 보이는 칠드폼이름을 비교해서
맞으면 프로그램 권한을 보고 사용자가 권한이 있으면 실행합니다..
줄수를 단축해볼려고 이것도 해보고 저것도해봤는뎅~ ㅋㅋ 제가 판단하기에 잴루 근접해서 ㅋㅋㅋ 하드 코딩 했습니다..
궁금한 사항 있으면 쪽지주세요~

Tag에 한표!

저같은 경우는 Window Message로 처리하고 있습니다.
Main Form에서 Button을 눌렀을 때 Child에 SendMessage()로 Message를 날리고
Child Form에서 Message를 받을 수 있는 처리를 하는 겁니다.


//MainForm(Form1으로 가정)
procedure TForm1.Button1Click(Sender: TObject);
begin
if Self.ActiveMdiChild = nil then Exit;

SendMessage(Self.ActiveMdiChild.Handle, WM_USER+999, 1, 0);
end;

//Child Form(Form2로 가정)
//private영역에 Message trap을 위한 prototype 선언
procedure WM_ToolButtonClicked(var Msg: TMessage); message WM_USER+999;

//implementation
procedure TForm2.WM_ToolButtonClicked(var Msg: TMessage);
begin
case Msg.WParam of
1: ShowMessage('조회');
2: ShowMessage('신규등록');
3: ShowMessage(수정);
4: ShowMessage('저장');
5: ShowMessage('삭제');
end;
end;

이런 형태로 처리하고 있습니다. Message의 값을 constant로 정의하시면 조금 더 가독성이 있겠네요.