안녕하세요?
답변잘봤습니다.
질문의내용은 아래의 code중 ????가 있는 부분 입니다.
답변주시면 감사하겠습니다.
그럼.....


// ----------------------------  
//    unit
// ---------------------------
unit Ua01;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,asdfunc;

type
  Tfrm01i = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    btnCFM: TButton;
    procedure btnCFMClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm01i: Tfrm01i;

implementation

{$R *.DFM}

procedure Tfrm01i.btnCFMClick(Sender: TObject);
begin
  form_clear(????);  ==>> form_clear로 현재 active되어있는 form을 넘기는 방법?
end;

end.



// ----------------------------  
//    unit
// ---------------------------

unit asdfunc;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
   procedure form_clear(aa : Tform) ;

type
  TDataModule1 = class(TDataModule)
  private
    { Private declarations }
  public
    //procedure form_clear(aa : integer) ;
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.DFM}

procedure form_clear(????) ;  ===>>> 넘어온 form을 받는 방법?
begin
   ????.components[0] := ' ' ;  ===>>> 넘어온 form의 component를 사용하는 방법?
end ;
end.