HyperButtons bzw HyperPanels erstellen (Delphi Anfänger)

[mkinzler]

Delphi-Quellcode:

type
 THyperPanel = class ( TPanel)
   public
     constructor Create(AOwner:TComponent);override;
     procedure HyperPanelClick;
  end;

implementation

constructor THyperPanel.Create(AOwner: TComponent);
BEGIN
    inherited Create(AOwner);
    Width := 100;
    Height := 100;
    Color:= clred;
    BorderStyle:= bsSingle;

//    BevelWidth:=3;
end;