Bare et forslag: Kan du ikke bruge samme metode som ved en opstarts-'præsentation' (der er sikkert en smartere metode), hvor du i Options/Project flytter Form2 over i Available forms og i 'Project source' (program-unitten) skriver: Form2:=TForm2.Create(Application); Form2.Show; Form2.Update; (og da skal osse have den med i usessætningen: Unit2 in 'unit2.pas{form2];
og så noget 'onchange event' for noget på din mainform ala Form2.destroy.
Du kunne også placere noget kode ude i DPR-filen (eksempel frit fra hukommelsen):
function ProgRegIRegistry : boolean; begin result := false; with TRegistry.create do try if OpenKeyReadonly('/softwate/Fir/...') then result := ValueExists('SomeRegValue'); // Lige vel simpelt - men det er et eks. finally free; end; // try end;
begin if ProgRegIRegistry then Application.CreateForm(TMainForm,frmMainForm) else Application.CreateForm(TRegProg,frmRegProg);
application.run; end.
Åhh hvor jeg dog savner Delphi. Ulempen ved ovenstående er at programmet skal genstartes efter registeringen.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.