Delphis MessageDlg

Question

yılında zamanlayıcı olaylarını görmezden nasıl Delphi küresel istisna işleyicisi kurdunuz. Bazı ciddi istisnalarda, bir hata mesajı görüntülenir (ardından Halt()). Hata mesajı gösterilirken, Delphi, daha fazla hataya yol açan, zamanlayıcı olaylarını işleyen ileti sırasını işliyor. Benim istediğim

zamanlayıcı olaylarını işlemez bir hata iletişim kutusu göstermektir. Delphi'de bu nasıl mümkün olabilir?

Düzelt: İletiyi görüntülemek için Dialogs.MessageDlg (...) kullanıyorum. Böyle

Answer 1

Sen sıraya filtre uygulayıp edebilirsiniz mesajları,.

procedure TMainForm.ApplicationMessage(var Msg: TMsg; var Handled: Boolean); 
begin 
    if ShowingFatalErrorDialog then 
    if Msg.Message = WM_TIMER then 
     Handled := True; 
end; 

doğrudan Application.OnMessage bu olay işleyicisi atamak veya bir TApplicationEvents nesnesini kullanın Ya.

Açıkçası ShowingFatalErrorDialog için uygulanmasını sağlamak gerekecek ama bunun nasıl size açıktır inanıyoruz.

Answer 2

deneyin şey: TApplication.OnMessage böyle WM_TIMER olarak

... 
    private 
    FAboutToTerminate: Boolean; 
    end; 

... 

type 
    ESevereError = class(Exception); 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
    Tag := Tag + 1; 
    if Tag > 2 then 
    raise ESevereError.Create('Error'); 
end; 

procedure TForm1.ApplicationEvents1Exception(Sender: TObject; 
    E: Exception); 
begin 
    if (E is ESevereError) and (not FAboutToTerminate) then 
    begin 
    FAboutToTerminate := True; 
    Application.ShowException(E); 
    Application.Terminate; 
    end; 
end; 

Answer 3

sadece referans: her iki cevap bir karışımıdır aşağıdaki kodu kullanacaktır. TFatalErrorAppEvents ile

procedure SaveShowErrorMessage(...) 
begin 
    with TFatalErrorAppEvents.Create(nil) do //avoid timer and further exceptions 
    try 
     Dialogs.MessageDlg(...); 
    finally 
     Free; 
    end; 
end; 

şöyle:

type 
    TFatalErrorAppEvents = class(TApplicationEvents) 
    protected 
     procedure KillTimerMessages(var Msg: tagMSG; var Handled: Boolean); 
     procedure IgnoreAllExceptions(Sender: TObject; E: Exception); 
    public 
     constructor Create(AOwner: TComponent); override; 
    end; 


constructor TFatalErrorAppEvents.Create(AOwner: TComponent); 
begin 
    inherited; 
    OnMessage := KillTimerMessages; 
    OnException := IgnoreAllExceptions; 
end; 

procedure TFatalErrorAppEvents.IgnoreAllExceptions(Sender: TObject; E: Exception); 
begin 
    //in case of an Exception do nothing here to ignore the exception 
end; 

procedure TFatalErrorAppEvents.KillTimerMessages(var Msg: tagMSG; var Handled: Boolean); 
begin 
    if (Msg.message = WM_TIMER) then 
     Handled := True; 
end;