Transparente Form

[Jelly]

Hallo,

ich nutze für ein Programm einén Bootbildschirm, welches ein transparentes Form sein soll. Klappt in den meisten Fällen auch wunderbar, doch irgendwie habe ich 2 komische Erscheinungen.

Ich habe als transparente Farbe clLime definiert. Das Anzeigen der Form klappt wie gewollt. Nach dem Anzeigen verbindet sich mein Programm zu einer Online Datenbank, was mal einige Sekunden dauern kann. Ab und zu wechselt mein transparentes Form dann jedoch zu einem ganz normalen Fenster, und dieses hässliche Grün erscheint wieder als Hintergrund (siehe Attachment).

Das zweite Problem hängt irgendwie mit dem ersten zusammen. Denn nach dem Connecten mit der Datenbank versuche ich wieder das Bootfenster zu schliessen, jedoch tuts das nicht immer.

Woran kann das liegen. Wie gesagt, in den meisten Fällen klappts, jedoch manchmal scheint dieses Fenster ein Eigenleben zu entwickeln.

[barf00s]

SetLayeredWindowAttributes() ist dein Freund LWA_COLORKEY

und im OnFormCreate

Delphi-Quellcode:

var
  iStyleEx: cardinal;

begin
  iStyleEx := GetWindowLong(Handle, GWL_EX_STYLE);
  iStyleEx := iStyleEx or WS_EX_TRANSPARENT;
  SetWindowLong(Handle, GWL_EX_STYLE, iStyleEx);
end;

ich hoff ich hab getz nix verwürfelt

[Jelly]

Hmm, "Undeclared identifier: GWL_EX_STYLE"

Welche Unit muss ich denn einbinden?

Und was hat das mit dem SetLayeredWindowAttributes auf sich. Ich kann dazu auch keine Hilfe finden.

[barf00s]

Delphi-Quellcode:

var
  iStyleEx: cardinal;

begin
  iStyleEx := GetWindowLong(Handle, GWL_EXSTYLE);
  iStyleEx := iStyleEx or WS_EX_LAYERED;
  SetWindowLong(Handle, GWL_EXSTYLE, iStyleEx);
end;

heißen, sry

und

SetLayeredWindowAttributes(Handle, clLime, 0, LWA_COLORKEY);

<msdn>

Delphi-Quellcode:

function SetLayeredWindowAttributes(
  // Handle to the layered window.
  Wnd: hwnd;
  // Pointer to a COLORREF value that specifies the transparency
  // color key to be used when composing the layered window
  crKey: ColorRef;
  // Alpha value used to describe the opacity of the layered window
  Alpha: Byte;
  // Specifies an action to take
  // LWA_COLORKEY or LWA_ALPHA
  // This parameter can be one or more of the following values:
  dwFlags: DWORD): Boolean;
  stdcall; external 'user32.dll';

</msdn>

[edit]blubb, thx freak[/edit]

[freak4fun]

*barf00s ein Paar CodeTags schenkt*

MfG
freak

[Jelly]

Danke euch beiden, die Lösung scheint bis jetzt einwandfrei zu klappen.

[Jelly]

Also nach mehrmaligem Testen bleibt das Phänomen dennoch erhalten. Die Hintergrundfarbe scheint wieder durch und die Form wieder nicht auf Wunsch geschlossen.