HyperButtons bzw HyperPanels erstellen (Delphi Anfänger)

[mkinzler]

Doppelklick auf das Formular, dann erzeugt er die Methode und verknüpft diese mit dem Event

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TMain = class(TForm)
    THyperPanel:TPanel;
    PnTestpanel: TPanel;
    BtCLose: TButton;
    //procedure THyperPanelCreate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtCLoseClick(Sender: TObject);
  private
    { Private-Deklarationen }
    HyperPanel: THyperPanel;
  public
    { Public-Deklarationen }
  end;

var
  Main: TMain;
 
implementation

{$R *.dfm}

{procedure THyperPanelCreate(Sender: TObject);
  begin
    TMain.Create.THyperPanel; override;
  end;}

procedure TMain.FormCreate(Sender: TObject);
begin
    HyperPanel := THyperPanel.Create( Self);
    HyperPanel.Parent := Self;
    HyperPanel.Top := 10;
    HyperPanel.Left := 10;
end;

procedure TMain.BtCLoseClick(Sender: TObject);
begin
close;
end;

end.