Changeset 115 for trunk/UCore.pas


Ignore:
Timestamp:
Dec 10, 2016, 3:52:26 PM (8 years ago)
Author:
chronos
Message:
  • Fixed: In Debug mode also check executed classes references.
  • Modified: Better About dialog.
  • Modified: About and Help dialogs are created in time when they are shown.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/UCore.pas

    r111 r115  
    233233procedure TCore.AAboutExecute(Sender: TObject);
    234234begin
    235   FormAbout.ShowModal;
     235  FormAbout := TFormAbout.Create(Self);
     236  try
     237    FormAbout.ShowModal;
     238  finally
     239    FreeAndNil(FormAbout);
     240  end;
    236241end;
    237242
     
    321326procedure TCore.AHelpExecute(Sender: TObject);
    322327begin
    323   FormHelp.ShowModal;
     328  FormHelp := TFormHelp.Create(Self);
     329  try
     330    FormHelp.ShowModal;
     331  finally
     332    FreeAndNil(FormHelp);
     333  end;
    324334end;
    325335
Note: See TracChangeset for help on using the changeset viewer.