unit PanelVerschieben;

interface

uses Classes, ADODB, db, ExtCtrls, StdCtrls, SysUtils, Controls;


//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
type TPanelVerschieben = Class(TPanel)
  private
    procedure MyOnPrint;
    procedure Sortieren(Panel:TPanel);
    procedure LabelVerschieben(Panel:TPanel);
  public
    constructor Create(AOwner:TComponent);override;
  end;
//------------------------------------------------------------------------------
procedure Register;
//------------------------------------------------------------------------------
implementation
//------------------------------------------------------------------------------
constructor TPanelVerschieben.Create(AOwner:TComponent);
begin
  inherited Create(aowner);
// Self.OnPrint := Self.MyOnPrint;
end;
//------------------------------------------------------------------------------
procedure TPanelVerschieben.Sortieren(Panel:TPanel);
begin
  // Irgendein Code
end;

//------------------------------------------------------------------------------
procedure TPanelVerschieben.LabelVerschieben(Panel:TPanel);
begin
  // Irgendein Code
end;
//------------------------------------------------------------------------------
procedure TPanelVerschieben.MyOnPrint;
begin
  // Irgendein Code
end;
//------------------------------------------------------------------------------
procedure Register;
begin
  RegisterComponents('Rave Compos', [TPanelVerschieben]);
end;
//------------------------------------------------------------------------------
end.