Ganze Form bzw. Shape durchsichtig gestalten

**Aike**

Hallöchen,

ich habe im Forum zum Thema "Wie mache ich meine Form durchsichtig" gesucht und als Antwort eigentlich die Property "AlphaBlend" gefunden. Gefreut, ausprobiert, nicht mehr gefreut. Mein Notebook hat sich mit einem BlueScreen (XP) aufgehängt mit dem Verweis, dass eine Grafik-Datei beschädigt sei (lol). Na ja, dacht ich mir, altes Notebook ... zickt sowieso immer rum. Programm auf dem PC getestet und da hat sich der PC nur fast aufgehängt. Mit Müh und Not und einigem Warten konnte ich das Programm wieder schließen.

Das hat mich ein bisschen irritiert, denn:
Ich habe zum Test vorher eine leere Anwendung erstellt, eine Trackbar drauf gesetzt und kurz das hier gecodet (ich nutze D7):

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Form1Create();

begin

  Trackbar1.AlphaBlend:=true;

  Trackbar1.Max:=255;

  Trackbar1.Position:=255;

end;

procedure TForm1.Trackbar1Change();

begin

  self.AlphaBlendValue:=Trackbar1.Position;

end;

Das funktioniert prima, auch auf meinem Notebook.

Da ich mich mit der Thematik eh kaum auskenne, habe ich auch keine Ahnung, was das Problem sein könnte, oder wo/wie ich ansetzen könnte, um den Fehler auszumerzen. Wenn ihr wollt, kann ich das Programm auch mal posten ...

Wie immer bin ich für Tipps dankbar

Ganze Form bzw. Shape durchsichtig gestalten

Ganze Form bzw. Shape durchsichtig gestalten

Forumregeln