Preciso abrir 2 formulários simultaneamente um ao lado do outro e depois quando eu fechar ou minimizar algum deles, os 2 serem fechados/minimizados simultanemente. Procurei alguma ideia em vários sites e tudo que encontrei até agora foi o seguinte código que mostra o "Form2" no canto inferior direito da tela.
Segue o código abaixo:
// Form 1
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.show;
end;
// Form 2
procedure TForm2.FormShow(Sender: TObject);
begin
Form2.TOP:= SCREEN.WorkAreaHeight - Form2.HEIGHT;
Form2.LEFT:=SCREEN.WorkareaWidth - Form2.WIDTH;
end;
Alguém tem alguma ideia de como atingir esse objetivo?