Form mit Komponenten Transparent machen, aber wie?

[0NyX]

Guten Abend DP User,

ich hab mal wieder ein kleines Problem :oops:
Und zwar würde ich gerne eine Funktion in mein Tool bauen, die es Transparent machen kann, aber nicht vollständig sondern in Prozent.

Also für die Prozent Einstellung habe ich die TTrackBar verwendet.

Die Form die Transpiriert werden soll beinhaltet folgende Sachen:
MainMenu, TMemo, TListView, TRZToolbar, TRZStatusBar.

Würde mich riesig freuen wenn ihr mit ein paar Tipps geben könntet, da ich zur Zeit keine Ahnung habe wie ich es anstellen soll.

Vielen Dank im voraus!

MfG

[Aurelius]

http://www.swissdelphicenter.ch/de/showcode.php?id=924

Bitteschö :D

[0NyX]

Zitat:

Zitat von xX0815Xx

http://www.swissdelphicenter.ch/de/showcode.php?id=924

Bitteschö :D

wow vielen Dank :)
Ging ja schnell, schaue ich mir direkt mal an =)

EDIT: LEIDER wird nur die Schrift Transperent, aber nicht die Form an sich, weiß einer woran das liegt?

[Crazy Ivan]

alphablend.

du bildest das verhältnis von der position der trackbar und der gesammtlänge dieser und rechnest diesen faktor auf 255 hoch. den entstehenden wert setzt du dann ins alphablending ein.

form.alphablend:=true;
form.alphablendvalue:= [errechneter wert]

[0NyX]

Zitat:

Zitat von Crazy Ivan

alphablend.

du bildest das verhältnis von der position der trackbar und der gesammtlänge dieser und rechnest diesen faktor auf 255 hoch. den entstehenden wert setzt du dann ins alphablending ein.

form.alphablend:=true;
form.alphablendvalue:= [errechneter wert]

Vielen Dank für die super Hilfe klapp soweit ganz gut =)

Hab es jetzt so gelöst:

Delphi-Quellcode:

  if cbTransparent.Checked then
    begin
      AStyle := Round(tbTransparent.Position * 255 div 100);
      Main.AlphaBlend := true;
      Main.AlphaBlendValue := AStyle;
    end;

Es gibt nur noch einen kleinen Fehler, und der ist wenn ich die aktion durchführe, kann ich das Fenster "Einstellungen" nicht erneut öffnen. Denn es kommt folgender Fehler: [...]'Zugriffsverletzung bei Adresse 00477582 in Modul'[...]