Thema: Delphi Mainform verschleiern

Einzelnen Beitrag anzeigen

Alfonso

Registriert seit: 10. Jan 2006
250 Beiträge
 
Delphi 11 Alexandria
 
#9

Re: Mainform verschleiern

  Alt 15. Jan 2008, 09:31
So, jetzt bin ich selber fündig geworden und will die Antwort nicht vorenthalten, falls jemand die gleiche Lösung sucht.

Ich habe in meinem Programm die Funktion "Alphablendrect" aus DP aufgenommen.
Dann habe ich ein kleines unsichtbares Panel auf mein Mainform gesetzt, auf dem ein TImage mit align:=alclient platziert ist (damit ich eine Canvas habe).
Wenn ich den Schleier haben will, rufe ich folgendes auf:
Delphi-Quellcode:
 Panel1.Align:=alclient;
 Image2.Picture.Bitmap:=self.GetFormImage;
 AlphaBlendRect(Image2.Canvas,panel1.ClientRect,clblack,70);
 Panel1.Show;
Dadurch erreiche ich den Grauschleier. Will ich diesen entfernen, rufe ich nun nur folgendes auf:
Panel1.Hide; Gruß
Alfonso
Alfonso
Seit Turbo Pascal 3.0 dabei!
Ewiger Pascal Fan!
  Mit Zitat antworten Zitat