I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.