unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    BitBtn4: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
   Unit2;

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
   sMsg : PChar;
begin
   Form2 := TForm2.Create(Self);
   sMsg := StrAlloc(100);
   try
      case Form2.ShowModal of
         mrOk     : StrPCopy(sMsg, 'Form2 ModalResult OK');
         mrNo     : StrPCopy(sMsg, 'Form2 ModalResult ON');
         mrCancel : StrPCopy(sMsg, 'Form2 ModalResult CANCEL');
      end;
      MessageBox(Self.Handle, sMsg, 'Close', MB_OK);
   finally
      StrDispose(sMsg);
      Form2.Free;
   end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
   case ShowForm1('지금은 실행중 입니다') of
      mrOk     : Label1.Caption := 'OK';
      mrNo     : Label1.Caption := 'NO';
      mrCancel : Label1.Caption := 'CANCEL';
   end;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
var
   sMsg : String;
begin
   sMsg := '에디트에 아무 글씨나 쓰세요';
   if (ShowForm2(sMsg) <> mrOk) then Exit;
   Label1.Caption := sMsg;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action := caFree;
end;

end.