Bevel auf einem Rechteck

[DeddyH]

Das müsste ungefähr so ausgesehen haben:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    FTest: TMyCompo;
  end;

...
  
procedure TForm1.FormCreate(Sender: TObject);
begin
  FTest := TMyCompo.Create(self);
  FTest.Width := 200;
  FTest.Height := 200;
  FTest.Parent := self;
end;