raise exception lazarus

[joao ribeiro]

exemplo esta situação, mas em qualquer outra situação de divergência, sendo que o usuario, ao clicar no cancel fecha aplicação. trato aqui Lazarus, gostaria de saber se é possivel alterar ? ou dialog diferente desse sem o button cancel, ou showmessage. Obrigado!  

[Daniel Simoes]

Basta fazer  um Try/Exception 

[joao ribeiro]

Ok, Daniel achei que podesse alterar o dialog, então vou tratar aqui.

muitoobrigado, pela atenção!

[Daniel Simoes]

Se deseja fazer isso de maneira Global... você pode usar o componente TApplicationProperties, e programar algo no evento OnException... lá você receberá o Exception e pode por exemplo, salvar em um Log ou exibi-lo de forma diferenciada... Exemplo:

procedure TFrMain.ApplicationProperties1Exception(Sender: TObject; E: Exception);
begin
  MessageDlg('Exception '+E.ClassName+' gerado',E.Message, mtError, [mbOK], 0);
end;

 

[joao ribeiro]

Em 06/06/2018 at 02:31, Daniel Simoes disse:

Se deseja fazer isso de maneira Global... você pode usar o componente TApplicationProperties, e programar algo no evento OnException... lá você receberá o Exception e pode por exemplo, salvar em um Log ou exibi-lo de forma diferenciada... Exemplo:

procedure TFrMain.ApplicationProperties1Exception(Sender: TObject; E: Exception);
begin
  MessageDlg('Exception '+E.ClassName+' gerado',E.Message, mtError, [mbOK], 0);
end;

 

Obrigado ! Daniel, era exatamente isso que buscava... vai me ajudar muito, desconhecia esta possibilidade.