1:
2:
3:
4:
5:
6:

Form5.Show;
while Form5.Visible do
  Application.ProcessMessages;
//Nach dem Schliessen von Form5 dann weiter:
Application.MessageBox[...]
[...]                    

1:
2:
3:
4:
5:
6:

Form5.Show;
while Form5.Visible do
  Application.ProcessMessages;
//Nach dem Schliessen von Form5 dann weiter:
Application.MessageBox[...]
[...]                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

    //Form1
    case MessageDialog(
           'Irgendein Text ...',
           'Hinweis',
           mtINFORMATION,
           [mbOK, mbCancel, mbIGNORE], '',
           bsDialog, [biSystemMenu], clBtnFace, clWindowText, -1, -1,
           '',
           0, '')
      of
      mrOK:
        begin
          Form5.Show;  //Sowohl Form1 als auch Form5 sollen benutzbar sein!
          while Form5.Visible do
            Application.HandleMessage;  {Warten, bis Form5 geschlossen ist, dann --> ...}
        end;
      mrCancel:
        begin
          exit;
        end;  
    end;
  end;  {case}

  //Form1
  {... --> hier weiter}
  case Application.MessageBox(
         'Irgendein Text ...'),
         'Bestätigen',
         mb_YESNO or mb_ICONQUESTION or mb_DEFBUTTON1)
    of
    mrNO:
      begin
        exit;
      end;
  end;  {case}

//Hier kommt dann noch mehr Code                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure Button1Click(Sender: TObject);
begin
  if CheckBox1.checked then
    begin
      Form5.Show;
      while Form5.Visible do
        Application.ProcessMessages;
      CheckBox1.checked := not CheckBox1.checked;
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure Button1Click(Sender: TObject);
begin
  if not Button1ClickRunning then
    begin
      Button1ClickRunning  := true;
      if CheckBox1.checked then
        begin
          Form5.Show;
          while Form5.Visible do
            Application.ProcessMessages;
        //ungünstige Operation: CheckBox1.checked := not CheckBox1.checked;
          Button1ClickRunning   := false;
        end;
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

      mrOK:
        begin
          Form5.JobForOnClose := ocjDummyJob;
          Form5.Show;  //Sowohl Form1 als auch Form5 sollen benutzbar sein!
        end;
[...]
procedure Form5.OnClose();
begin
  if JobForOnClose = ocjDummyJob then
     doSomething();
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

      mrOK:
        begin
          Form5.JobForOnClose := @MyDummyJob;
          Form5.Show;  //Sowohl Form1 als auch Form5 sollen benutzbar sein!
        end;
[...]
procedure MyDummyJob();
begin
   doSomething();
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure Button1Click(Sender: TObject);
begin
  if CheckBox1.checked then
    begin
      Form5.Show;
      while Form5.Visible do
        Application.ProcessMessages;
      CheckBox1.checked := not CheckBox1.checked;
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;

// oder ab XE oder so
// uses
//   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
//   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;


Type
  TCloseFormEvent = Procedure of Object; // hier deklarierst du einen neuen Typ, das ist dein Event-Typ

type
  TForm5 = class(TForm)

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private { Private-Deklarationen }
    fCloseFormEvent : TCloseFormEvent;

  public { Public-Deklarationen }
    Property OnCloseFormEvent  : TCloseFormEvent read fCloseFormEvent write fCloseFormEvent;
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // Hier löst du das Ereignis aus
  If Assigned(fCloseFormEvent) Then fCloseFormEvent;
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

unit UnitMain;

interface

uses
  ..., Unit5;

type
  TFormMain = class(TForm)
    ...
    procedure Btn_Form5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);


  private { Private-Deklarationen }
    Procedure AfterCloseOfForm5;

  public  { Public-Deklarationen  }
  end;

var
  FormMain: TFormMain;

implementation
{$R *.dfm}
{ TFormMain }

// hier platzierst du das, was erst nach dem Schließen von Form5 ausgeführt werden soll
procedure TFormMain.AfterCloseOfForm5;
begin
  ShowMessage('Form5 wurde soeben geschlossen');
end;

// Hier weist du dem Event aus Form5 die obige Methode zu
procedure TFormMain.FormShow(Sender: TObject);
begin
  Form5.OnCloseFormEvent := AfterCloseOfForm5;
end;

// Hier rufst du Form5 auf (ja ich weiß, überflüssiger Kommentar)
procedure TFormMain.Btn_Form5Click(Sender: TObject);
begin
  Form5.Show;
end;

end.                    

1:
2:
3:
4:
5:
6:

...
while Form5.Visible do
begin
Sleep(10); Application.ProcessMessages;
end;
...