سلام
آره امکانش هست
فقط من خیلی وقت پیش این کارو کردم (2 سال پیش) برای همین درست یادم نیست
تو فرم اصلی برنامه یه رویه ایجاد می کنی برای دریافت خطاها
procedure GetError(Sender : TObject; E : Exception);
پیاده سازیش می کنی (مثلا) :
procedure TForm1.GetError(Sender : TObject; E : Exception);
begin
ShowMessage('Error is : "' + E.Message);
end;
و در رویداد Form.Create فرم اصلی روال دسترسی به خطاها رو به این رویه ارجاع می دی :
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := GetError;
end;
حالا تو هر فرمی که خطایی روی بده این روال اونو مدیریت می کنه
مثلا :
procedure TForm2.Button1Click(Sender: TObject);
var
j : integer;
x : string;
begin
x := 'ss';
j := strtoint(x);
end;
فقط تو Try ... Catch کار نمی کنه (چون خودش خطا رو قبل از رسیدن به برنامه مدیریت می کنه)
شرمنده بقیه اش یادم نیست :embr:
امیدوارم بدردت بخوره