Hallo zusammen,
zum Thema PageControl TabSheet mit Farbe füllen gibt es viele Beiträge. Auf SwissDelphiCenter.ch habe ich ein Beispiel gefunden wovon ich glaube es könnte funktionieren. Ich habe das Beispiel umgesetzt, Delphi meldet jedoch an einer Stelle einen Fehler:
Delphi-Quellcode:
procedure TTabSheet.WMEraseBkGnd(var Msg: TWMEraseBkGnd);
begin
if FColor = clBtnFace then
inherited
else
begin
Brush.Color := FColor;
Windows.FillRect(Msg.dc, ClientRect, Brush.Handle);
Msg.Result := 1;
end;
end;
Windows.FillRect kennt er nicht und ich komme nicht drauf was in die uses eingebunden werden muss - kann mir da jemand auf die Sprünge helfen?
Gruß