Utenti collegati: 21 
 
it.comp.lang.delphi
Il linguaggio Delphi di Borland

Indice messaggi | Invia un reply | Tutti i newsgroup | Cerca | Statistiche 



  Inviato da: microges@gmail.com  Mostra tutti i messaggi di microges@gmail.com
Titolo: Problema form e Windows 10
Newsgroup: it.comp.lang.delphi
Data: 10/07/2017
Ora: 09:42:15
Mostra headers
 
  Ciao a tutti,<br /> <br /> allora spiego... ho la necessit=C3=A0 di visualizzare un messaggio a centro=<br /> schermo ma devo fare in modo che il resto dello schermo non sia cliccabile=<br /> a prescindere da quello che c'=C3=A8 sotto.<br /> <br /> Fino ad ora facevo cosi':<br /> <br /> Sulla FormCreate del messaggio creavo una form vuota a pieno schermo senza =<br /> bordo impostando Brush.Style :=3D bsClear e funziona bene da Windows XP a W=<br /> indows 7 ma con Windows 10 (almeno la versione Professional) no, nel senso =<br /> che visualizza la form completamente nera e non trasparente dando un effett=<br /> o allucinante spece se devo visualizzare pi=C3=B9 messaggi in sequenza.<br /> <br /> Allora, mi sono detto, provo a copiare lo sfondo in una bitmap e la metto a=<br /> pieno schermo (sempre nella form che creo nella FormCreate) ma pure questa=<br /> non funziona, ovvero lo sfondo non viene copiato.<br /> <br /> Per catturare lo sfondo uso questa funzione (che lavora bene su Win XP/2000=<br /> /7)<br /> <br /> Function GetScreenShot : TBitmap;<br /> Var<br /> Desktop : HDC;<br /> DC : Cardinal;<br /> BMP : TBitMap;<br /> begin<br /> Result :=3D Nil;<br /> <br /> BMP :=3D TBitmap.Create;<br /> BMP.Width :=3D Screen.Width;<br /> BMP.Height :=3D Screen.Height;<br /> <br /> DC :=3D GetDesktopWindow;<br /> Desktop :=3D GetDC(DC);<br /> <br /> try<br /> BitBlt(BMP.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, Desktop, 0=<br /> , 0, SRCCOPY);<br /> <br /> BMP.Modified :=3D True;<br /> Result :=3D BMP;<br /> finally<br /> ReleaseDC(DC, Desktop);<br /> end;<br /> end;<br /> <br /> Ragazzi ho terminato le idee. Qualche anima pia mi potrebbe dare una mano?<br /> <br /> Grazie a tutti  

Il thread:
da leggere microges@gmail.com 10/07 09:42
Problema form e Windows 10
   da leggere David Guadagnini 10/07 09:43
Re: Problema form e Windows 10
   da leggere David Guadagnini 11/07 11:08
Re: Problema form e Windows 10
 

Invia una risposta:

Nome:

Email:

Titolo:

Testo:


Attenzione: l'invio del messaggio richiede diversi secondi.
Non premere pi� volte il tasto "Invia".

 © Sergio Simonetti 2001 Che cos'è Links