10. september 2001 - 18:11Der er
5 kommentarer og 1 løsning
System Modal vindue
Hejsa! Jeg har læst et eksempel på hvordan jeg laver et vindue modal til hele systemet... Det er som følger:
procedure TForm1.Button1Click(Sender: TObject); var x : word ; begin x := SetSysModalWindow(Form2.handle) ; Form2.showmodal ; SetSysModalWindow(x) ; end;
Men det virker ikke! Jeg får: Undeclared indetifier: \'SetSysModalWindow\' Og så vil jeg jo tro det er fordi jeg skal skrive en unit ind under uses, men hvilken?
Hvis der eventuelt er nogle som har en anden løsning kan det også bruges :)
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.
The SetSysModalWindow function is obsolete. This function is provided only for compatibility with 16-bit versions of Windows. The new input model does not allow for System Modal windows.
Du kan stadig alt+tab til andre vinduer og processer kører stadig væk... den skal være modal til hele systemet, som ctrl+alt+del boksen... alt stopper når den kommer...
Hvis man laver programmer, der på en eller anden måde skal køres færdig uden at brugeren har mulighed for at hindre dette (ud over via elværket), så kan der være brug for at slå tastkombinationerne alt+tab samt ctrl+alt+del. I de to følgende metoder er vist koden til at slå tastkombinationerne fra og til. procedure TForm1.Button1Click(Sender: TObject); var dummy: integer; begin SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @dummy, 0); end;
// I denne metode slås tastkombinationerne til igen procedure TForm1.Button2Click(Sender: TObject); var dummy: integer; begin SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @dummy, 0); end;
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.
