Controls im PageControl verschwinden unkontrolliert

[himitsu]

Da es etwas "schwer" ist, die VCL-Cuellcodes zu ändern, könnte man es auch so versuchen:

Delphi-Quellcode:

uses Controls;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
  C: TWinControl;
begin
  if Msg.message = WM_UPDATEUISTATE then begin
    C := FindControl(Msg.hwnd);
    if Assigned(C) then
      C.Invalidate;
  end;
end;

Application.OnMessage := ApplicationEvents1Message;
// Wenn schon vorhanden, dann TApplicationEvents auf die Form pappen und dort OnMessage verwenden
// Auf einer Form reicht, da es für alle Controls verwendet wird.

Aber es könnte auch sein, daß es so zu früh ausgelöst wird ... wenn's nicht klappt, dann würd ich da noch was dran verändern.