Transparenz bei eigener Komponente ein- bzw. ausschalten

[Mazel]

Hallo,

um meine eigene Komponente transparent zu machen, nutze ich folgen Code:

Delphi-Quellcode:

procedure TMJGroupBox.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 Params.ExStyle:=Params.ExStyle + WS_EX_Transparent;
end;

Das funktioniert auch, aber wie kann ich es einstellen, ob ich die Transparenz haben möchte oder nicht?
Ich dachte da an:

Delphi-Quellcode:

Transparent := False;

Nur weiss ich nicht, wie ich das abfragen soll? Muss ich diese CreateParms Prozedur erneut aber mit anderen Parametern aufrufen oder so umstellen das ich sie 2 mal verwenden kann?

Gruß
Mazel

[jfheins]

Ich glaube, du solltest dir mal GetWindowLong in zusammenhang mit GWL_EXSTYLE anschauen ;)

[Mazel]

Hi,

danke. GetWindowLong ist mir bekannt, ich dachte aber das es eine andere Möglichkeit gibt. Bisher habe ich GetWindowLong nur für Forms verwendet um sie entweder volltransparent oder teiltransparent zu machen wie bei diesem Programm:

Wivi 06 - macht Fenster transparent.


Geht diese Funktion auch bei Komponenten? Und sie geht doch nur ab Windows 2000?

Gruß
Mazel

[himitsu]

In Windows ist nahezu alles ein "Window" ... also Forms, Edit, Labels, Buttons ...

Es wird auch all dieses mit CreateWindows(Ex) erzeugt.


Windows heißt ja nicht umsonst so :zwinker:

[jfheins]

Zitat:

Zitat von himitsu

In Windows ist nahezu alles ein "Window" ... also Forms, Edit, Labels, Buttons ...

Es wird auch all dieses mit CreateWindows(Ex) erzeugt.

Also zumindest bei Delphis TLabel wäre mir neu dass das ein Fenster ist :mrgreen:

Der Rest stimmt ;)

[Mazel]

Ok,

stimmt. :)

(Labels sind keine Fenster :wink:)

Gibt es eine andere Möglichlkeit als mit GetWindowLong?

Gruß
Mazel

[jfheins]

Naja .... du könntest das Fenster zerstören und neu erstellen lassen, doch das wäre ungleich aufwändiger und weniger ...sexy... als den Wert für den Ex. Style einfach mit Get/SetWindowLong zu verändern ;)

Dein Setter würde jetzt ungeähr so aussehen:

Delphi-Quellcode:

procedure TDingsDa.SetTransparency(const Value: Boolean);
begin
  FTransparency := Value;

  if Value then
    SetWindowLong(Handle,GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_Transparent);
  else
    SetWindowLong(Handle,GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) and not WS_EX_Transparent);
end;

[himitsu]

Ok, dat war'n blödes Beispiel (hab'sch vor kurzem auch gemerkt, als ich das Handle daruf suchte. :wall:

Auch wenn "Labels" STATIC (nicht TLabel) in Windows Windows sind. :roll:

[himitsu]

Zitat:

Zitat von jfheins

Naja .... du könntest das Fenster zerstören und neu erstellen lassen, doch das wäre ungleich aufwändiger und weniger ...sexy... als den Wert für den Ex. Style einfach mit Get/SetWindowLong zu verändern ;)

hast du dir mal die VCL angesehn ... die machen diesen Zerstörungstripp auch ständig :shock:

[Mazel]

OK.

Dann werde ich das mal versuchenn nur weis ich nicht so recht wie ich das abfragen bzw. setzen soll.
In einer Komponente habe ich wie gesagt noch nicht mit GetWindowLong oder SetWindowLong gearbeitet.

Gruß
mazel