TabSheet1 Farbe zuweisen OnShow oder ?

[blondervolker]

Hallo,

versuche gerade einem Tabsheet verschiedene Farben zu verpassen.
Hab es noch nicht gemacht.
Gibt es da eine einfache Möglichkeit?:oops:

[Bummi]

Wenn es Dich nicht stört die Farbe in den Tag zu packen (DU könntest auch eine Property hinzufügen), und ich Dich überhaupt richtig verstanden habe ....

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TTabsheet=Class(ComCtrls.TTabSheet)
     procedure WMPaint(var Message: TWMPaint);message WM_PAINT;

  End;
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Button1: TButton;
    Button2: TButton;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TTabSheet.WMPaint(var Message: TWMPaint);
var
  DC: HDC;
  b:TBrush;
begin
       inherited;
      DC := GetWindowDC(Handle);
      b:=TBrush.Create;
      b.Color := Tag;
      b.Style := bsSolid;
      try
        Fillrect(dc,ClientRect,b.Handle);
      finally
        ReleaseDC(Handle, DC);
        b.Free;
      end;



end;
end.

[DP-Maintenance]

Dieses Thema wurde am "26. Apr 2012, 18:43 Uhr" von "fkerber" aus dem Forum "Neuen Beitrag zur Code-Library hinzufügen" in das Forum "GUI-Design mit VCL / FireMonkey / Common Controls" verschoben.