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 :gruebel:
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? :roll:

[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 :cry:

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

Zitat:

Zitat von Luckie

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

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;