I need to open 2 forms simultaneously next to each other and then when I close or minimize one of them, the 2 are closed / minimized simultaneously. I looked for some idea on several sites and all I found so far was the following code that shows "Form2" in the lower right corner of the screen.
Follow the code below:
// 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;
Does anyone have any idea how to achieve this goal?