Ist zwar irgendwie nicht ganz verständlich/konsequent,
aber ein ELSE ohne
ON IF gibt es eh nicht.
Also mit ON gibt es, falls kein ELSE vorhanden, ein implizites
else raise;
.
OMG, ein
raise TObject.Create;
würde also durch alle Try-Except durchrauchen, welche ein ON ohne ELSE enthalten, was in der
RTL/
VCL praktisch fast immer so ist,
mit wenigen Ausnahmen, weswegen aus einem TButton-Click doch nicht die ganze Anwendung komplett verreckt.
Delphi-Quellcode:
procedure TWinControl.MainWndProc(var Message: TMessage);
begin
try
...
except
Application.HandleException(Self);
end;