Wie: Formular transparent, Label jedoch nicht ?

[dopeline]

Ich habe ein label, in dem die uhrzeit läuft. das formular ist gerademal so groß, wie das label. der borderstyle des form ist bsNone. man sieht also nur eine graue fläche und darauf dei uhrzeit laufen.

wie kann ich das formular transparent machen und nur das labelsichtbar? wenn ich mit der alphablendvalue runter gehe, verschwindet das label.

hat jemand eine idee?


Gruß, dopeline

[mirage228]

Du könntest die Eigenschaft Transparent vom Label z.B. auf False setzen.

mfG
mirage228

[dizzy]

Ne, das wäre glaube ich nicht das richtige. Diese Option regelt meines Wissens nach nur, ob der Text des Labels mit Hintergrund, oder ohne gezeichnet werden soll. Also es geht nur um die Transparenz des Label-Hintergrundes!

Meine erste Idee wäre eine Kompo (mussu suchen), die anhand von Bitmaps das Formular beliebig durchsichtig macht. Dann könntest du mit TextOut einen Text in eine Bitmap schmeissen, damit das Form "maskieren", und fertig. Ich meine solche Kompos gibt es auch als Freeware, bin mir aber net GANZ sicher. Mal die Code-Lib, Torry, Goole - alles leer-suchen


gruss,
dizzy

[SirThornberry]

Das Form hat noch die Eigenenschaft Transparent. Die einfach auf True setzen und die Transparentfarbe festlegen

[MrKnogge]

Eventuell hat es auch mit Parentcolor, parentbackground etc. zu tun, ansonsten brauchst du extra Komponennten...

[SirThornberry]

extra komponenten sind auf keinen fall notwendig. Habs grad selbst probiert.
TransparentColor auf True gesetzt
TransparentColorValue auf clGreen gesetzt
die Farbe vom Formular auf clGreen gesetzt
gestartet und das formular war durchsichtig (außer die titelleiste weil die ja nicht grün ist)

[MrKnogge]

Zitat von SirThornberry:

Das Form hat noch die Eigenenschaft Transparent. Die einfach auf True setzen und die Transparentfarbe festlegen

Da geht es aber darum, ob die Farbe des dahinterliegenen Objekts (Panel oder so) als Hintergrundfarbe genommen werden soll, nicht AlphaBlend !


Er möchte das Label nicht transparent haben !

[Matze]

Geht auch so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Color := $00FF64FF;
  TransparentColor := true;
  TransparentColorValue := Color;
end;

Edit: zu langsam.