Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi formstyle:=fsStayOnTop, wenn Fenster inaktive dann ausblende (https://www.delphipraxis.net/54380-formstyle-%3Dfsstayontop-wenn-fenster-inaktive-dann-ausblende.html)

juergen 3. Okt 2005 13:16


formstyle:=fsStayOnTop, wenn Fenster inaktive dann ausblende
 
Hallo zusammen,
ich habe eine ganze Weile gesucht aber irgendwie das Passende noch nicht direkt gefunden, bzw. die vielen Threads dazu im Detail nicht verstanden, was für mich nun die passende Lösung wäre... :zwinker:

Meine Hauptform hat die Eigenschaft -> fsStayOnTop
Nun würde ich gern die Anwendung transparent machen (über AlphaBlend := True und AlphaBlendValue :=xxx), wenn die Anwendung INAKTIV ist. Sowie das Fenster der Anwendung wieder aktiviert wird soll es wieder voll sichtbar sein.
Gibt es hier eine "leichte" Möglichkeit der Umsetzung?

Vielen Dank vorab!

Grüße Jürgen

Zacherl 3. Okt 2005 13:19

Re: formstyle:=fsStayOnTop, wenn Fenster inaktive dann ausbl
 
Ich kenne mich jetzt mit .Net nicht aus, aber unter Win32 könnte man einfach die Ereignisse OnActivate und OnDeactivate benutzen.

Korrigiert mich, wenn dies unter .Net nicht gehen sollte.

Florian

juergen 3. Okt 2005 13:29

Re: formstyle:=fsStayOnTop, wenn Fenster inaktive dann ausbl
 
Nachtrag!
Sorry, Sprache nicht NET sondern Delphi Win 32 :wall:

juergen 3. Okt 2005 13:38

Re: formstyle:=fsStayOnTop, wenn Fenster inaktive dann ausbl
 
Hallo Florian,
genau das habe ich versucht. Geht aber "irgendwie" nicht...
Hier mein Code dazu:


Delphi-Quellcode:
procedure TMyForm.HauptformOnDeactivate(Sender: TObject) ;
begin
     if MyForm.active = False then begin
     MyForm.AlphaBlend := True;
     end;
end;

procedure TMyForm.HauptformOnActivate(Sender: TObject) ;
begin
     if MyForm.active = True then begin
     MyForm.AlphaBlend := False;
     end;
end;
Oder muss ich vielleicht die Anwendung selbst abfragen? Wenn ja, wie?

Gruß Jürgen


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:39 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz