삭제를 위한 암호를 넣어 주세요

var
  MainFormView: TMainFormView;

  Form2: TForm;
  Form3: TForm;
  Form4: TForm;

....

procedure TMainFormView.Button7Click(Sender: TObject);
begin
  Form2 := TForm1.Create(Application);
  Form2.Show;
end;

procedure TMainFormView.Button8Click(Sender: TObject);
begin
  Form3 := TForm1.Create(Application);
  Form3.Show;
end;

procedure TMainFormView.Button9Click(Sender: TObject);
begin
  Form4 := TForm1.Create(Application);
  Form4.Show;
end;

procedure TMainFormView.Button10Click(Sender: TObject);
begin
  Form2.Close;
end;

procedure TMainFormView.Button11Click(Sender: TObject);
begin
  Form3.Close;
end;

procedure TMainFormView.Button12Click(Sender: TObject);
begin
  Form4.Close;
end;
 
2019-01-10 오후 8:13:26

삭제를 위한 암호를 넣어 주세요

고석민님이 올려주신 내용은 델파이 초보자도 알고 있는 내용입니다.
버튼을 여러게 놓고 각각 창을 여는게 아니고....
한게의 버튼으로 같은 창을 여러게 만들어 놓고 닫고자 하는 창을
실행중 닫을려고 합니다.
 
2019-01-11 오후 3:17:48

삭제를 위한 암호를 넣어 주세요

// 폼을 생성할 때 폼 구별을 위해 Tag를 부여한다...
procedure TForm2.Button1Click(Sender: TObject);
var
    F: TForm3;
begin
    Inc(No);
    F := TForm3.Create(Application);
    F.Tag := No;
    F.Caption := 'Form' + No.ToString;
    F.Show;
end;

// 두 번째 생성된 폼이라면 Tag가 2이므로 2를 찾아서 Close한다.
procedure TForm2.Button2Click(Sender: TObject);
var
  I: Integer;
begin
     for i:=0 to Screen.FormCount -1 do
       if Screen.Forms[i].Tag = 2 then
           Screen.Forms[i].Close;
end;

// 전체를 Close하려면 아래와 같이....
for i:= 0 to Screen.FormCount -1 do
    Screen.Forms[i].Close; 
2019-01-11 오후 4:48:30

삭제를 위한 암호를 넣어 주세요

아.. Tag 가 있었네요.. 감사합니다.. 
2019-01-11 오후 5:15:45

삭제를 위한 암호를 넣어 주세요

폼 디자이너 만들어 본적 없어요?
뭘 Tag 까지 써요 ㅋㅋ

TForm1의 Instance Name 이 Form1으로 되어 있어서
같은 TForm1을 생성하면 객체의 인스턴스 네임을
구분하기 위해 _1, _2, _3 ... 을 붙여요. 
2019-01-11 오후 5:58:16

삭제를 위한 암호를 넣어 주세요

procedure TForm1.Button1Click(Sender: TObject);
begin
  TForm1.Create(Application).Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
var c: TComponent;
begin
  c := Application.FindComponent('Form1_1');
  if c <> nil then
  begin
    TForm(c).Release;
    Application.RemoveComponent(c);
  end;
end;
 
2019-01-11 오후 5:58:49

삭제를 위한 암호를 넣어 주세요

TForm1.Create(Application) 으로 객체가 생성될 때
Owner인 Application의 인터널 리스트에 추가될 때
인스턴스 네임이 같을 경우, 구분하기 위해 내부에서
_1, _2, _3 식으로 인스턴스 네임을 바꾼단 말입니다. ㅋㅋ 
2019-01-11 오후 6:02:29