Panel im eigenen Event freigeben oder Event direkt an Parent geben

[DeddyH]

Kleines Beispiel (nur ein Panel und ein Button auf dem Formular):

Delphi-Quellcode:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

const
  PM_HAUWECH = WM_USER + 42;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure SendHauWech(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure PmHauWech(var Msg: TMessage); message PM_HAUWECH;
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.Button1Click(Sender: TObject);
var
  pnl: TPanel;
begin
  pnl := TPanel.Create(Panel1);
  pnl.Parent := Panel1;
  pnl.Align := alTop;
  pnl.OnDblClick := SendHauWech;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Panel1.OnDblClick := SendHauWech;
end;

procedure TForm2.PmHauWech(var Msg: TMessage);
var
  i: integer;
begin
  for i := Panel1.ControlCount - 1 downto 0 do
    Panel1.Controls[i].Free;
end;

procedure TForm2.SendHauWech(Sender: TObject);
begin  
  // Perform(PM_HAUWECH, 0, 0);
  PostMessage(Handle, PM_HAUWECH, 0, 0);
end;

end.