Transparentes Formular, sichtbare controls

[jaschu]

Hi!

Lange hab ich nach einem Codeschnipsel gesucht, der das Formular selbst unsichtbar macht, aber alle Controls (Images, Buttons, Labels...) sichtbar bleiben.

Nun hab ich einen gefunden, das Problem ist nur, dass oben ein Stück sichtbar bleibt.
Woran kann das liegen?
Hat jemand eine ähnliche Prozedur?

Danke schonmal!

Lamy

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
 Var
   frmRegion, tempRegion: HRGN;
   i: Integer;
   Arect: TRect;
 Begin
   frmRegion := 0;
   For I:= 0 To ControlCount - 1 Do Begin
     // create a region for the control
     aRect := Controls[i].BoundsRect;
     // coordinates have to be window-relative, not client area relative
     OffsetRect( aRect, clientorigin.x - left, clientorigin.y - top );
     tempRegion := CreateRectRgnIndirect( aRect );
     // merge the region with the "summary" region we are building
     If frmRegion = 0 Then
       frmRegion := tempRegion
     Else Begin
       CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR );
       DeleteObject( tempRegion );
     End;
   End;
   // create a region for the caption and menu bar and add it to the
   // summary
   tempregion :=
     CreateRectRgn( 0, 0, Width,
                    GetSystemMetrics( SM_CYCAPTION )+
                    GetSystemMetrics( SM_CYSIZEFRAME )+
                    GetSystemMetrics( SM_CYMENU ));

   CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR );
   DeleteObject( tempRegion );
   SetWindowRgn( handle, frmRegion, true );

end;

[jaschu]

Kann mir denn keiner helfen?


Jaschu

[100nF]

hi,


habe mal bei swissdelphicenter sowas gefunden.
schau dort mal nach

[jaschu]

Nein, bei Swissdelphicenter gibt es nur Codeschnipsel die ALLEs durchtig machen - eben das soll NICHT der Fall sein

[Daniel G]

Mal 'ne blöde Frage:

Welche Delphi - Version hast du? Bei Delphi 7 gibbet nämlich die Eigenschaft "TransparentColor". Die sollte dir helfen...

[phlux]

Hallo
Vielleicht hilft dir auch folgender Link weiter:
http://www.hwb.com/gruhn/programming...ial/clear.html

Wichtig ist auch, das man bei solchen sachen den BorderStyle der Form auf bsNone setzt!

Mfg phlux

[Schwitzus]

hi erstmal!
hab schon viel brauchbares gefunden in diesem forum hier, und muss erst mal dank und annerkennung aussprechen

mach mal als viertletzten befehl

Delphi-Quellcode:

   tempregion :=
     CreateRectRgn( 0, 0, Width, 0);

weiß nicht ob das das is was du suchst, bei mir war dann nur der button sichtbar
das mit der transparent-property is glaub ich so a gschicht, wenn man das formular transparent setzt, wird der button mit transparent auch wenn dieser transparenz von 0% hat

[Daniel G]

Zitat von Schwitzus:

das mit der transparent-property is glaub ich so a gschicht, wenn man das formular transparent setzt, wird der button mit transparent auch wenn dieser transparenz von 0% hat

Sicher?

[Schwitzus]

stimmt sry, hatte das mit Alpha verwechselt, da werdn alle Komponenten auf dem Formular automatisch mit transparent

[jaschu]

Alles klar, so weit, so gut, danke!

Aber jetzt hab ich ein Problem mit Bildern (siehe Anhang)...

Für alle die zu faul sind es sich runterzuladen hier ne Beschreibung:
Der Rosa Rand bleibt um das Bild bestehen.

Kann man das umgehen?

Auf http://www.dsdt.info/jedi/jvcl/komponenten.php gibt es eine Beschreibung der Komponenten.
Darunter auch:

Zitat:

TJvTransForm
Ein weiterer Weg, ein transparentes Fenster zu erhalten (nur die Controls werden sichtbar sein). Achtung, wenn Sie die Größe von Komponenten verändern, müssen Sie diese Komponente deaktivern und dann neu aktivieren, um den Bereich des Fensters zu ändern.

So eine Komponente existiert bei mir aber nicht O_o (Ja, ich HABE JEDI installiert)

Danke schonmal für Antworten!


Lamy