Komponenten-Entwicklung

[Elite]

Hallo,
ich habe eine Komponente von TPanel abgeleitet, die ein zusätzliches Images erzeugt, von welchem das Panel vollständig verdeckt wird. Das Ganze schaut so aus:

Code:

unit TexPanel;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls, graphics, types, Messages, Windows,
  MultiMon, Menus, CommCtrl, Imm, ImgList, ActnList;

type
 TTexPanel = class(TPanel)
  private 
    { Private-Deklarationen } 
    FImage: TImage; 
    FPicture: TPicture;
    procedure SetPicture(const Value: TPicture);
    procedure CreateWnd; override;
  protected 
    { Protected-Deklarationen }
    procedure Resize; override;
  public
    { Public-Deklarationen }
    constructor Create(aOwner: TComponent); override; 
    destructor Destroy; override;
  published 
    { Published-Deklarationen } 
    property Picture: TPicture read FPicture write SetPicture; 
  end; 

procedure Register; 

implementation 

procedure Register; 
begin 
  RegisterComponents('Samples', [TTexPanel]);
end;

{ TImagepanel }

constructor TTexPanel.Create(aOwner: TComponent);
begin 
  inherited Create (aOwner);
  FPicture := TPicture.Create; 
  FImage := TImage.Create(self);
  with FImage do 
  begin 
    Parent := self;
    Align := alLeft;
  end;
  bevelinner := bvNone;
  bevelouter := bvNone;
end;

procedure TTexPanel.CreateWnd;
begin
  inherited CreateWnd;
  SetPicture(fPicture);
end;

destructor TTexPanel.Destroy;
begin
  FreeAndNil(FPicture);
  FreeAndNil(FImage); 
  inherited Destroy;
end; 

procedure TTexPanel.Resize;
begin
  fImage.Picture.Bitmap.Width := width;
  fImage.Picture.Bitmap.Height := height;
  inherited;
end;

procedure TTexPanel.SetPicture(const Value: TPicture);
begin
  FPicture.Assign(Value);
  fImage.Picture := nil;
  FImage.Canvas.Brush.Bitmap := fPicture.Bitmap;
  fImage.Canvas.FillRect(Rect(0,0,fImage.Width, fImage.Height));
  Paint;
end;

Nun muss der Programmierer natürlich dieMöglichkeit haben, auf ein OnMouseDown-Ereignis zu reagieren. Wenn er aber eines im OI festlegt, wird es nie ausgeführt, weil das Panel ja komplett vom Image überdeckt wird. Wie kann ich nun Ereignisse wie OnMouseDown, OnMouseMove, OnMouseUp, OnClick usw. vom Image an das zugehörige TTexPanel weiterleiten?

P.S.: Nicht dass sich jemand wundert: Dieser Code ist zum Großteil aus einem alten Thread übernommen!

[ibp]

vom image abfangen und an das panel weitergeben!

[Elite]

...und da würdest du spontan welchen Code für nutzen? :?

[Phoenix]

Da wo das Image erzeugt wird: FImage.OnMouseDown := OnMouseDown;

[Elite]

Hey Phoenix. Das hatte ich zwar schon erfolglos probiert, aber du hast mich auf die Idee gebracht, diesen Aufruf nicht während, sondern nach dem Erzeugen des TexPanels, nämlich in CreateWnd aufzurufen. Vielen Dank!