![]() |
|
1 פיט - יפלד | |
![]() |
|
ישאר דומע | םיפיטה דומע | רנק ודיע תאמ |
![]() |
? םימיוסמ םירבד םיעצבמ םתא רשאכ םילבקמ םתאש האיגש תועדוה תא רוצעל םיצור םתייהש ןוכנ :תורשפאה תא שי קיסיבב ןכבו On Error Goto :וא On Error Resume Next ...'וכו ?!? יפלדב שי המ לבא ,תונבומ אל תועדוה רותב שמתשמל תגצומ היהת איהש ללכב וא ,הנכותה תא ליפהלמ האיגש םירצוע ךיא ?? םולכ ול תורמוא אל רשא .TRY הרומשה הדוקפה םע האבה הרוצב תוליחתמ ןלוכו תואיגשב לופיטל תורוצ המכ שי יפלדב ,ןכבו תעדוהל תצפוק דיימ איה החילצמ אל הלועפ רשאכש תושימגה תא ונל תנתונ רשא ,הנושאר תורשפא :וז איה האיגשה ... // There are some code above the lower lines. Try Case Message.msg of WM_Maximize : .... WM_Minimize : ... WM_Move : ... ... End; Except //This is what we need ... Raise Exception.Create('An error was found'); End; ... .םיוסמ טקייבואל הרק הרקמ הזיא תולגל ןויסנ שי ,ל"נה אמגודב םיאור םתאש ומכ ? תמיוסמ האיגש תארוק רשאכ הרוק המ לבא תעדוה גיצת ךלש תינכותהש םוקמב זא ,Case ה טפשמב עיגמש דוקב וא ,הרקש הרקמב הז םא ןיב .הזמ רתוי םירמוא אל ונחנא ךא ,האיגש וזיא שיש שמתשמל דיגהל הל םירמוא ונחנא ,"ץוחב אצת"ו האיגש ? בוט הז המל םילאוש םתא זא ,תילאטפ האיגש לש הרקמב קר רצעת איה רמולכ) רצעת תינכותהש ילבמ האלה ךישמהל םיצור םתא םא ןכבו .(בוט אל והשמ הרקש עדוי אל שמתשמה םא םג) רדהנ הז ירה ,הנממ ךישמהל רשפא יא רשא .םיקדוצ םתאש םכל רמוא ינאו םכל רוזעל לוכי אל הז םירקמ הברהבש יל םירמוא םתא וישכע ? וישכע תושעל רשפא המ זא שמתשהלו תכלל טושפ רשפא ,EXCEPT ב שמתשהלב םוקמב זאו האיגשה ךרע תא לבקל רשפא ןכבו .ליגר TRY-ב :רמולכ Try //Do something ... .... Finally // In the End of the Above statement do ... ... End; //That's all ... םהש הזיא גיצת וא לופית ילש תינכותהש ילבמ האלה םיכישממו האיגשה תא "םיספות" וישכע ךיא זא בוט ?? דחא ףאל תומיאתמ אלש האיגש תועדוה .SetErrorMode תארקנש הדמחנ API תיצקנופ שי .יהשלכ האיגש תעדוה שי רשאכ תושעל המ תונולחל דיגהל טושפ רשפא ,וז היצקנופב :םה לבקל הלוכי וזה היצקנופהש תויורשפאה ![]() לפטל לכות אלו ןולחה לש הרוהל רובעי האיגשה לש ךרעה ,MDI CHILED ב שמתשמ התאו הדימב * ."דלי"המ דבל תואיגשב :יפלדב הב םישמתשמ ךיא הארנ ואוב ,היצקנופה לש תונוכתהמ המכ ונרכהש ירחא ,וישכע ... var wOldErrorMode : Word; ... wOldErrorMode := {Tell Windows to ignore any error. The Variable receve the old way Windows handle the Error Messages} SetErrorMode(SEM_FAILCRITICALERRORS ); with Tform1.create(Self) do Try Form1.ShowModel; Finally Free; SetErrorMode( wOldErrorMode ); {Return the OLD way that Windows handle Error Messages} End; |