Transparentes Bild soll nur an bestimmten stellen angeklickt

[Hallo_Thomas]

@Robert Marquardt
Toll, hab mich jetzt in den letzten Tagen damit beschäftigt, da ich mit den selbstgemachten Komponenten noch nich so auskenne, vom Grundgerüst her, würdch sagen, isses genau das was ich suche.

Nun zu meiner Frage
wie schon gesagt, mein wissen über eigene Komonenten ist noch nicht so gross.Also hab ich sie wie folft verucht einzubinden:

Delphi-Quellcode:

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
    Haus:           TBitmap;
    Bild:               TMouseImage;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Haus := TBitmap.create;
  Haus.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\Bilder\aktiv.bmp');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Haus.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Bild := TMouseImage.create(self);
  Bild.parent := self;
  Bild.Autosize := True;
  Bild.Transparent := True;
  Bild.Picture.Assign(Haus);
  Bild.Top := 10;
  Bild.Left := 10;
  Bild.PicUp.create;
  Bild.PicDown.create;
  Bild.PicUp.Assign(Haus);
  Bild.PicDown.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\Bilder\unten.bmp');
end;
end.

Das klappt auch so weit, nur leider soll das Bildchen ja nicht beim darüberfahren nach unten gedrückt werden, sondern nur so ne Art OnMouseDown Eigenschaft.