Edits verlieren Rahmen und Inhalt

[Medium]

Aloah!

In meinem Programm wechsel ich zwischen diversen Fenster hin und her (Wechselspiel zwischen "CurrentWindow.Hide" und "NewWindow.Show", und an anderen Stellen mittels AnimateWindow()). Das neu gezeigte Fenster schaut bestens aus, bis auf dass meinen Edits alles fehlt, was an ihnen wichtig ist: Rahmen und vor allem der Inhalt.

Den Rahmen habe ich nun nach dem .Show() durch folgende Methode gezwungen, sich bitte doch nochmal zu zeichnen:

Delphi-Quellcode:

procedure TfrmMain.RepaintEditFrames(aControl: TWinControl);
var
  i: Integer;
  hrgn: THandle;
begin
  hrgn := CreateRectRgn(0, 0, 65535, 65535);
  try
    for i := 0 to aControl.ControlCount-1 do
    begin
      if aControl.Controls[i] is TWinControl then
      begin
        if TWinControl(aControl.Controls[i]).ControlCount > 0 then
          RepaintEditFrames(TWinControl(aControl.Controls[i]));
        SendMessage(TWinControl(aControl.Controls[i]).Handle, WM_NCPAINT, Integer(hrgn), 0);
      end;
    end;
  finally
    if hrgn <> 0 then
      DeleteObject(hrgn);
  end;
end;

Das klappt, aber meinen Text in den Edits bekomme ich ums Verrecken nicht. Versucht habe ich bereits:
- WM_PAINT an die Edits
- RedrawWindow, sowohl an das Formular mit RDW_ALLCHILDREN, als auch rekursiv an alle Controls direkt ohne das Flag
- aControl.Invalidate
- aControl.SetFocus

Letzteres wegen der Beobachtung, dass wenn ich in ein Edit hineinklicke, dass DANN der Inhalt wieder auftaucht. Leider tut das via SetFocus aber nicht.

Delphi 2007, und das Problem besteht auf WinXP und Win7 gleichermaßen.

Was könnte ich denn mal noch so versuchen, um meine Inhalte auf meinen Bildschirm zu zwingen? Ich bin auch für "kreative" Vorschläge offen, so lange es einfach mal geht. (Zu viel Zeit schon auf so ein unnötiges Problem verballert )

[Uwe Raabe]

Schuss ins Blaue: TControl.Update

[Medium]

Ups, den habe ich meiner Liste vergessen, sorry . Heisst: Auch schon probiert, aber die Edits weigern sich geflissentlich.

Was mir gerade erst auffiel: Das mit dem Inhalt passiert nur, wenn ich ein Fenster mittels AnimateWindow() und AW_BLEND einblenden lasse, die Rahmen aber würden ohne meine Lösung von oben weder mit AW_BLEND noch mit AW_SLIDE gezeichnet - nur manchmal(TM).

Irgendwie muss man Controls doch überreden können sich zu zeichnen, selbst wenn irgend ein interner Mechanismus meint sie wären schon okay so. (Ich mutmaße, dass Windows die intern verwaltet, und da ein "nö, alles gut"-Flag gesetzt ist, dass alle o.g. Methoden auch pflichtbewusst abfragen. Oder so ähnlich.)

\\Edit:
Noch schöner! Wird ein Form mittels AnimateWindow(AW_BLEND) das aller erste Mal eingeblendet, sind die Inhalte da. War es schon mal angezeigt, mittels .Hide() versteckt, und dann wieder eingeblendet, sind die Inhalte weg. (Auch, wenn ich nach dem AnimateWindow() noch ein .Show() nachschiebe.)

\\Edit2:
Ums mal mit einem Stück Code zu untermauern:

Delphi-Quellcode:

        NewForm.DoubleBuffered := false;  // Mit DoubleBuffered wird das Formular während des Einblendens schwarz...
        NewForm.BringToFront;
        AnimateWindow(NewForm.Handle, 200, AW_BLEND or AW_ACTIVATE);
        NewForm.DoubleBuffered := true;
        NewForm.Show;
        NewForm.Invalidate;
        if Assigned(oldForm) then oldForm.Hide;
        RepaintEditFrames(NewForm);  // Das ist die Methode aus dem ersten Beitrag

Fun-Fact: Kommentiere ich einfach die AnimateWindow-Zeile aus, oder nehme als Flags mal "AW_SLIDE or AW_HOR_POSITIVE", ist alles gut. Aber ich würd schon sehr gern blenden!

[Medium]

Mein Aktueller Behelf: Die Fenster zu Layered-Windows machen, und bei Fensterwechsel über dessen Alpha animieren. Dabei bleiben die Edit-Texte drin. Nachteil: Wenn ich auf diese Fenster nun AnimateWindow() mit AW_SLIDE anwende, flackern sie kurz vor Start der Animation. (Das taten sie vorher nicht.)

Das ist zwar verschmerzbarer als fehlende Texte, aber wirklich schön ist das auch nicht. Daher bin ich immer noch auf der Suche nach einem Tipp. Am liebsten wie gesagt etwas, was so einem Control ganz unmissverständlich bedingungsloses Neuzeichnen verordnet.