Panel verliert Transparenz beim Minimize

[taktaky]

Ich habe versucht mit einem Timer, der das Form (das Programm und damit den Tras-Panel) in Front bringt ohne Erfolg :

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
SetWindowPos(Handle, HWND_TOPMOST, Left,Top, Width,
             Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

Beim Minimize des Programm verliert wieder der Transparenz-Panel seinen Effekt

Was schlagt Ihr vor

[Die Muhkuh]

Warum brauchst Du das Panel überhaupt davor?

In Deiner Beispielanwendung sehe ich keinen sinnvollen Einsatz dafür.

[stahli]

Ein Refrehproblem mit den AlphaSkins löse ich bei mir so:

Delphi-Quellcode:

procedure ShowDummy(C: TControl);
var
  PF: TCustomForm;

  procedure SC_(WC: TWinControl);
  var I: Integer;
  begin
    WC.Invalidate;
    for I := 0 to WC.ControlCount - 1 do
    begin
      if WC.Controls[I] is TWinControl then
        SC_(WC.Controls[I] as TWinControl)
      else
        WC.Controls[I].Invalidate;
    end;
  end;

begin
  if not (csDesigning in C.ComponentState) then
  begin
    if C is TForm then
      PF := (C as TForm)
    else
      PF := GetParentForm(C);
    if PF <> nil then
      SC_(PF);
  end;
end;

Vielleicht hilft das ja bei Dir nach dem Wiederherstellen des Formulars?

stahli

[ChrisE]

Hallo,

ich weiß nicht ob es dir etwas bringt, aber ich kann die Fehler der auf dem Bild vom ersten Beitrag zu sehen ist nicht reproduzieren. Minimieren / Maximieren / Normalgröße - alle wild rundrum gewechselt + anderes Fenster drüber ziehen. Anwendung und alle Komponenten "bleiben da", wo sie auch beim start sind.

Allerdings wird auch nichts in der scrollbaren Komponente (TWebBrowser?) angezeigt.

System XP SP3
IE 7

Gruß, Chris

[taktaky]

Wo soll ich die Funktion am besten legen?
Onshow oder einfach in Timer?

[DeddyH]

Wie wäre es mit Ausprobieren?

[Die Muhkuh]

Zitat von Die Muhkuh:

Warum brauchst Du das Panel überhaupt davor?

In Deiner Beispielanwendung sehe ich keinen sinnvollen Einsatz dafür.

[lbccaleb]

also bei mir (vista) bleibt auch alles so wie es ist, beim verschieben, verkleiner vergrössern... egal wie in welcher reihenfolge, immer das selbe: keine veränderung...

ansonnsten kann ich noch TJVPanel, von den jedis empfehlen, vllt hast du damit mehr glück dein problem (welche doch merkwürdig ist) zu lösen..

[stahli]

Zitat von taktaky:

Wo soll ich die Funktion am besten legen?
Onshow oder einfach in Timer?

evtl: ApplicationEvents.OnRestore

[taktaky]

Ich habe gerade TJVPanel getestet. Er hat das selbe Problem wie von dem Transparent-Panel (TrsPanels.dpk)

Allerdings das Problem tritt nur ein, wenn unten ein Video (windows Media Player) ist
Andere Objekte: Bilder, Webbrowser, ... sind ok und passiert sowas nicht

Also warum das nur bei WMP