Перекрытие нескольких TImage

[Stilet]

Вот на скорую руку пример:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 var
  Img1,Img2:TImage;
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);

begin
  //Создаем 1-й Image.
  Img1:=TImage.Create(Form1);
  with Img1,Img1.Canvas do
  begin
    Name:='Image1';
    Top:=50;
    Left:=50;
    Height:=50;
    Width:=100;
    Transparent:=true;
    Parent:=Form1;
    Pen.Color:=clRed;
    Pen.Style:=psSolid;
    Pen.Width:=30;
    Brush.Style:=bsSolid;
    Brush.Color:=clWhite;
    Rectangle(0,0,100,50);
    OnMouseMove:=FormMouseMove;
  end;
  //Создаем 2-ой Image.
  Img2:=TImage.Create(Form1);
  with Img2,Img2.Canvas do
  begin
    Name:='Image2';
    Top:=35;
    Left:=65;
    Height:=50;
    Width:=100;
    Transparent:=true;
    OnMouseMove:=FormMouseMove;
    Parent:=Form1;
    Pen.Color:=clBlack;
    Pen.Style:=psSolid;
    Pen.Width:=30;
    Brush.Style:=bsSolid;
    Brush.Color:=clWhite;
    Rectangle(0,0,100,50);
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if sender is TImage then begin
      if (TImage(Sender).Canvas.Pixels[x,y]<>0) then
     caption:='Img2' else caption:='Img1';
 end;
end;

end.

[0nni]

Я извиняюсь WN_NCHITTEST. Функционально это выглядит как и писал Stilet:

Сообщение от Stilet

По клику проверяем если цвет куда мыша попала = транспаренту то переслать клик контролу под ним.

Только не по клику, а как написано в MSND:

Сообщение от MSDN

The WM_NCHITTEST message is sent to a window when the cursor moves, or when a mouse button is pressed or released. If the mouse is not captured, the message is sent to the window beneath the cursor. Otherwise, the message is sent to the window that has captured the mouse.

Вот пример, не совсем то что надо, но думаю переделать не составит труда:
http://forum.vnetcore.com/viewtopic.php?f=12&t=225

у тебя будет что то вроде

TImage = Class(ExtControls.TImage)
private
  TransparentColor : TColor;
  Function isTransparent(x, y : integer) : boolean;
protected
  procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
....

procedure Timage.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;
    Message.Result := not isTransparent(Message.XPos, Message.YPos);
end;

procedure Timage.IsTransparent(x, y : integer) : boolean;
begin
 //Возможно еще прийдетя переводить экрнанные координаты в родительские, но точно не помню... - пишу на память ;)
 result := picture.bitmap.canvas[x,y] = TransparentColor;
end;

[Саня]

Да
Понимаю, что это самый простой и быстрый способ. Всем огромное спасибо.
Особенное спасибо Stilet и Onni за Ваше терпение.