procedure Ts_main.sbt_RoomCodeClick(Sender: TObject);
var pPos  :TPoint;
begin
    Application.CreateForm(TSSZ001F1, SSZ001F1);
    with SSZ001F1 do
    begin
         pPos := ed_RoomCd.ClientOrigin;

         Top   := pPos.y;
         Left  := pPos.x + ed_RoomCd.Width;

         ShowModal;

         ed_RoomCd.Text := sCode;
         ed_RoomNm.Text := sName;
    end;
end;

이 소스를 자주 사용하기에...폼이름을 변수로 받아처리하려고 합니다...

함수로 만들어 사용하려니 넘겨받는 변수(sCode, sName)이 문제네요...

포지션두 맘대루고... 해결방법이 없을까요?

제가 만든 함수는 다음과 같습니다...

procedure SSOpenCodeDlg(sFormName: String; Coord_CdCtrl, Coord_NmCtrl: TEdit);
var
    f : TFormClass;
    b : TForm;
    a_pos  :TPoint;
begin
    if sFormName = '' then Exit;

    f := TFormClass(FindClass('T'+sFormName));
    b := f.Create(Nil);
    with b do
    begin
         a_pos := Coord_CdCtrl.ClientOrigin;

         Top   := a_pos.y;
         Left  := a_pos.x + Coord_CdCtrl.Width;

         ShowModal;

    //     Coord_CdCtrl.Text := sCode;
    //     Coord_NmCtrl.Text := sName;
    end;

end;