Die Verarbeitung im Erase-Event funktioniert leider ebenfalls nicht.
Mein Code:
Delphi-Quellcode:
procedure TfrmMain.WMEraseBkgnd(var Msg: TWMEraseBkgnd);
var
ARect: TRect;
begin
with AdapterTabControl.Canvas do
begin
ARect.TopLeft := CurrentRateLabel.BoundsRect.TopLeft;
ARect.BottomRight := CurrentUploadLabel.BoundsRect.BottomRight;
Brush.Style := bsClear;
Brush.Color := clSkyBlue;
FillRect(ARect);
end;
Die Labels werden trotzdem einfach übermalt (außer wenn man die Größe der Form verändert, danach aber wieder das -leider- gewohnte Bild der übermalten Labels).
Andreas