[gelöst] Form.AlphaBlend unter Windows

[Olafr82110]

Hi,
ich hab da ein kleines Problem. Ich habe ein Formular, das ich, wenn es den Focus verliert gerne durchscheinend machen würde.
Also hat sich klein Olaf gedacht, einfach in application.ondeactivate ein

Code: Alles auswählen

 
form.alphablend:=true; 
form.alphablendvalue:=128;
 

und gut ist. Ists aber genau nicht. Ich schaffe es nicht das Fenster nachträglich transparent zu bekommen. Wenn ich das ganze zur Designtime mache ist alles wunderbar. Also neu zeichen. Aber wie?
Ich hab irgendwo gelesen mit form.invalidate solls angeblich gehen, aber entweder bin ich zu doof dafür oder da passt was nicht.

Hat irgendjemand nen Tip?

Gruß,
Olaf

[Socke]

Also hat sich klein Olaf gedacht, einfach in application.ondeactivate ein

Code: Alles auswählen

 
form.alphablend:=true; 
form.alphablendvalue:=128;
 

Application.OnDeactivate hat vermutlich etwas mit der gesamten Anwendung zu tun; Am besten zeigst du etwas mehr Quelltext, damit man sicherstellen kann, dass die Methode auch wirklich aufgerufen wird.

Andereseits könntest du das auch für deine Formulare machen; wähle in der IDE dein Formular aus und suche dir ein passendes Ereignis aus (z.B. OnDeactivate).

[Olafr82110]

Ah, das hätt ich noch schreiben können: Der ondeactivate Teil ist unkritisch. Will sagen, die Anweisungen werden, zumindest laut Debugger, durchlaufen. Nur scheinen sie nichts zu bewirken. Und form.ondeactivate greift nur wenn zu einem anderen Formular der gleichen Applikation gewechselt wird. Wird der Kontext der Applikation "verlassen" greift application.ondeactivate.
Über das Problem bin ich auch schon gestolpert.

Gruß,
Olaf

[theo]

Hier unter Wine geht das wunderbar mit Lazarus 1.1 r40260:41034M FPC 2.7.1 x86_64-linux-gtk 2

Code: Alles auswählen

 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnDeactivate:=@AppDeactivate;
  Application.OnActivate:=@AppActivate;
end;   
 
procedure TForm1.AppDeactivate(Sender: TObject);
begin
  AlphaBlendValue:=128;
  AlphaBlend:=true;
end;
 
procedure TForm1.AppActivate(Sender: TObject);
begin
  AlphaBlend:=false;
end;
 

[Olafr82110]

Ach ne...
Bei mir siehts so aus:

Code: Alles auswählen

 
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      Application.OnDeactivate:=@AppDeactivate;
      Application.OnActivate:=@AppActivate;
    end;   
 
    procedure TForm1.AppDeactivate(Sender: TObject);
    begin
      Form1.AlphaBlendValue:=128;
      Form1.AlphaBlend:=true;
    end;
 
    procedure TForm1.AppActivate(Sender: TObject);
      Form1.AlphaBlend:=false;
    end;
 

und da funktionierts nicht. Laß ich das Form1 vor den "Alphas" weg gehts. Hab ich da nen Denkfehler drin?

Gruß,
Olaf

[theo]

Funktional ist da bei mir kein Unterschied.

Aber es ist natürlich nicht optimal, in einer Methode der Klasse TForm1 "sich selbst" via der globalen Variablen "Form1" zu referenzieren.

[Olafr82110]

Hmmm. Auch wieder klar. Seis drum, jetzt funktionierts. Besten Dank für die Hilfe.

Gruß,
Olaf