Maus-transparente Komponente

[stahli]

Super Klasse!
Danke!

Delphi-Quellcode:

  procedure CMHitTest(var Msg: TWMMouse); message CM_HITTEST;

  procedure TLine.CMHitTest(var Msg: TWMMouse);
  begin
    inherited; 
  {
    if Assigned(PicUp) and Assigned(PicUp.Bitmap) and Transparent and
      (Msg.XPos < PicUp.Bitmap.Width) and (Msg.YPos < PicUp.Bitmap.Height) and
      (PicUp.Bitmap.Canvas.Pixels[Msg.XPos, Msg.YPos] = (Picture.Bitmap.TransparentColor and $FFFFFF)) then
      Msg.Result := 0;
  }
    Msg.Result := 0;
  end;

Da ich keine Transparent-Farbe habe setze ich Result einfach immer auf 0. Perfekt!

stahli