Hi !
Auch Delphi 5 löscht Einträge aus der Projektunit.
Ist mit bei einem Splash als Intro aufgefallen.
Mögliche Abhilfe: Formular aus dem Projekt entfernen und im Haupformular (oder anderem) in die 'Uses Klausel' aufnehmen.
Nur die allerwichtigsten Formulare automatisch erzeugen lassen.
Vielleicht ist folgendes hilfreich (beschleunigt Programmstart und ist aus
Unit Forms abgeleitet)
Delphi-Quellcode:
unit UShowForm;
interface
uses Classes, Forms;
type
TShowMode = (smModal, smShow);
function ShowForm(InstanceClass: TComponentClass;
var Reference; aShowMode:TShowMode):TModalResult;
implementation
procedure CreateForm(InstanceClass: TComponentClass;
var Reference);
begin
if Pointer(Reference)=nil
then Application.CreateForm(InstanceClass, Reference);
end;
function ShowForm(InstanceClass: TComponentClass;
var Reference; aShowMode:TShowMode):TModalResult;
begin
CreateForm(InstanceClass, Reference);
if aShowMode = smModal
then TForm(Reference).ShowModal
else TForm(Reference).Show;
Result:=TForm(Reference).ModalResult;
// macht nur bei modalem Aufruf Sinn
end;
end.
Manchmal gibt's halt Programme mit vielen Formularen !