TPanel mit schwarzem Rand

[Bummi]

Quick and Dirty

Delphi-Quellcode:

interface

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

type
   TPanel= Class(ExtCtrls.TPanel)
    Procedure Paint; override;
  End;

  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TPanel }

procedure TPanel.Paint;
begin
  inherited;
  if Tag = -1 then
    begin
      Canvas.RectAngle(ClientRect);
    end;
end;

end.