paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 11:00:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: changed except statements to more verbosity

Browse Source 
git-svn-id: trunk@1187 -
This commit is contained in:
lazarus 2002-02-09 01:48:03 +00:00
parent 51f5bd8ea0
commit 8d68b51a7e
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/application.inc
View File

@ -375,11 +375,14 @@ end;
{ variable and loads the form into the application forms list }
{------------------------------------------------------------------------------}
procedure TApplication.CreateForm(NewForm : TFormClass; var ref);
var ok: boolean;
begin
ok:=false;
try
TForm(ref) := NewForm.Create(Self);
except
raise;
ok:=true;
finally
if not ok then TObject(ref):=nil;
end;
if FMainForm = nil then begin
@ -394,6 +397,9 @@ end;
{ =============================================================================
$Log$
Revision 1.21 2002/04/04 12:25:01 lazarus
MG: changed except statements to more verbosity
Revision 1.20 2002/03/16 21:40:54 lazarus
MG: reduced size+move messages between lcl and interface