Message gelöcht ohne timer

[sirius]

Nö, eigentlich nicht:
Den timer setzt du vor dem Befehl Messagedlg auf enabled und das Event sieht so aus

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var i,j:integer;
begin
  for i:=0 to application.ComponentCount-1 do
  if application.Components[i] is TForm then begin
    if TForm(application.Components[i]).Caption='Informationen' then begin
      TForm(application.Components[i]).ModalResult:=mryes; //oder was du hier willst
      timer1.enabled:=false;
      exit;
    end;
  end;
end;

Damit testest du auf den Titel, oder du testest jedes Fenster auf ein Label und auf dessen Inhalt:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var i,j:integer;
begin
  for i:=0 to application.ComponentCount-1 do
  if application.Components[i] is TForm then begin
    for j:=0 to application.Components[i].Componentcount-1 do
    if application.Components[i].Components[j] is TLabel then begin
      if TLabel(application.Components[i].Components[j]).Caption=
        'Wollen Sie diesen Vertretungsplan wirklich löschen? ' then begin
         TForm(application.Components[i]).ModalResult:=mryes;
         timer1.enabled:=false;
         exit;
      end;
    end;
  end;
end;