Flackern des Formulars verhindern

[MrKnogge]

Hallo,

wenn ich mit folgendem Code mein Formular auf "AlwaysOnTop" setze, flackert es kurzzeitig auf:

Delphi-Quellcode:

if CheckBox1.Checked then
  Form1.FormStyle := fsStayOnTop
else
   Form1.FormStyle := fsNormal;

nun ist mir kürzlich folgende Variante ins Auge gesprungen, bei der das Formular nicht flackert:

Delphi-Quellcode:

if Checkbox1.Checked then
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE)
else
  SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);

Nun stehe ich vor dem gleichen (flackerndem) Problem, beim setzen von AlphaBlending.
Gibt es hierzu auch eine Variante das Flackern zu umgehen ?

Kann mir jemand auserdem noch sagen, woran dies liegt, das es bei einer Anweisung zum flackern kommt, und bei einer anderen nicht ?


gruss Christian

PS:
DoubleBuffered habe ich schon versucht, funktioniert nicht, und da mir die obige (nicht flackernde) Lösung nach nonVCL aussah hab ich auch schon luckie's API-Tutorial durchsucht, leider ohne Erfolg.

[toms]

Hallo,

Stichwort: WM_SETREDRAW.
Beispiel: hier

[MrKnogge]

Wenn ich es aber wie der Tipp beschreibt mache,

Delphi-Quellcode:

procedure LockControl(c: TWinControl; bLock: Boolean);
begin
  if (c = nil) or (c.Handle = 0) then Exit;
  if bLock then
    SendMessage(c.Handle, WM_SETREDRAW, 0, 0)
  else
  begin
    SendMessage(c.Handle, WM_SETREDRAW, 1, 0);
    RedrawWindow(c.Handle, nil, 0,
      RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LockControl(Form1, True);
  try
    Form1.AlphaBlend := true;
    Form1.AlphaBlendValue := 135;
  finally
    LockControl(Form1, False);
  end;
end;

so bleiben überesste der "alten" Form zurück.

[add]
Das Formular ohne alpha-blending auf dem Bild exisitiert gar nocht mehr,
Windows überzeichnet es nur nicht direkt.

[MrKnogge]

Gibt es denn da wirklich keine andere Möglichkeit ?

gruss

[Luckie]

Dann ruf doch mal InvalidateRect auf und erzwing ein Neuzeichen des Fesnters.

[MrKnogge]

Erst verhindere ich, dass das Fenster neu gezeichnet wird, und anschliesend zwinge ich es dazu sich neuzuzeichnen
Ist dann nicht alles beim alten ?

egal, ich werd's mal testen.

[Luckie]

Was erwartest du, wenn du du verhinderst, dass das Fenster neu gezeichnet wird? Wie sollen denn dann die Überreste verschwinden?

[MrKnogge]

also weder

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  LockControl(Form1, True);
  try
    Form1.AlphaBlend := true;
    Form1.AlphaBlendValue := 100;
  finally
    LockControl(Form1, False);
  end;
  InvalidateRect(Form1.Handle, nil, false);
end;

noch

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  LockControl(Form1, True);
  try
    Form1.AlphaBlend := true;
    Form1.AlphaBlendValue := 100;
  finally
    LockControl(Form1, False);
  end;
  InvalidateRect(Form1.Handle, nil, true);
end;

funktioniert

so hast du's doch gemeint, oder hab ich da was falsch verstanden ?

Zitat von Luckie:

Was erwartest du, wenn du du verhinderst, dass das Fenster neu gezeichnet wird? Wie sollen denn dann die Überreste verschwinden?

klingt logisch, nur dachte ich mir, das dann das "flackern" ebenfalls wieder auftauchen würde.

[MrKnogge]

Kennt sonst noch jemand eine Möglichkeit ?

Ansonsten werd ich mich wohl mit dem Flackern abfinden müssen bzw. AlphaBlending konstant aktiviert lassen.


gruss

[runger]

doublebuffered:=true;