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

[Саня]

Создаю программно несколько компонентов TImage и вывожу изображение на канву. Почти все перекрывают друг друга.
Проблемы:
1. Свободные части Image тоже окрашиваются. Хотя нужно чтобы они оставались прозрачными.
2. При перекрытии, на события реагирует только самый верхний Image, причём той зоной, которая должна быть прозрачной.

Подскажите пожалуйста, возможно ли избавиться от этих недостатков, если ДА, то как? Ну или посоветуйте, как это воплотить в жизнь(с каким компонентом или что-либо другое).

[SERG1980]

Св-во transparent в true у имиджа поставили?

[Kotofff]

вот тут глянь : http://www.delphikingdom.com/asp/ans...?IDAnswer=1891
неточно по твоей проблеме - но модернизировать можно ...

Или вот :

Функция RectInRegion

Описание:
function RectInRegion(Region: HRgn; var Rect: TRect): Bool;
Опpеделяет, лежит ли какая-либо часть пpямоугольника Rect внутpи указанной области.
Паpаметpы:
Region: Идентификатоp области.
Rect: Стpуктуpа TRect.
Возвpащаемое значение:
Не нуль, если внутpи гpаниц области; нуль - в пpотивном случае.
функция находится в файле gdi32.dll

[Саня]

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

Св-во transparent в true у имиджа поставили?

С этим уже разобрался (кажется). Надо было рисовать не Image1.Canvas, а на Bitmap.Canvas, тогда и transparent нормально себя чувствует.

[Саня]

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

вот тут глянь : http://www.delphikingdom.com/asp/ans...?IDAnswer=1891
неточно по твоей проблеме - но модернизировать можно ...

Или вот :

Вы меня не поняли.
Image1 это прямоугольник. Правильно? У меня на форме они накладываются один на другой со смещением. Так вот если я хочу кликнуть по нижнему (он виден) клик обрабатывает тот, который сверху (он его перекрывает прозрачной областью). Так есть возможность обработать такой клик нормально, т.е. как клик на нижнем Image? Или надо писать свой компонент?

[0nni]

Обрабатывай NC_HITTEST для каждого TImage (А лучше создай наследника), с его помощью можно сделать "пустые" области.

[SERG1980]

Сообщение от Саня

Вы меня не поняли.
Image1 это прямоугольник. Правильно? У меня на форме они накладываются один на другой со смещением. Так вот если я хочу кликнуть по нижнему (он виден) клик обрабатывает тот, который сверху (он его перекрывает прозрачной областью). Так есть возможность обработать такой клик нормально, т.е. как клик на нижнем Image? Или надо писать свой компонент?

А как вы прописываете событие OnClick для имиджа. если можно приведите код. А лучше полный исходник если не секрет.
Не очень понятно вот эта фраза

клик обрабатывает тот, который сверху (он его перекрывает прозрачной областью)

. Если вы кликаете по прозрачной области верхнего то у вас и будет вызываться обработчик верхнего

[Stilet]

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

[Саня]

Вот примерно то, о чем я спрашиваю:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ClickImages(Sender:TObject);
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Img1,Img2:TImage;
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;
    OnClick:=ClickImages;
    Pen.Color:=clRed;
    Pen.Style:=psSolid;
    Pen.Width:=30;
    Brush.Style:=bsSolid;
    Brush.Color:=clWhite;
    Rectangle(0,0,100,50);
  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;
    OnClick:=ClickImages;
    Parent:=Form1;
    Pen.Color:=clBlack;
    Pen.Style:=psSolid;
    Pen.Width:=30;
    Brush.Style:=bsSolid;
    Brush.Color:=clWhite;
    Rectangle(0,0,100,50);
  end;
  Button1.Enabled:=false;
end;

procedure TForm1.ClickImages(Sender: TObject);
begin
  //Для проверки выводит Name того Image, на котором кликнули.
  ShowMessage(TImage(Sender).Name);
end;

end.

Заметно, да? При клике в прозрачную область черного прямоугольника, клик обрабатывается как событие Image2. Так можно ли сделать так, чтобы при клике на красном прямоугольнике сквозь чёрный, "выскакивало имя" не Image2, а Image1, т.е. имя красного прямоугольника?

[Саня]

Сообщение от 0nni

Обрабатывай NC_HITTEST для каждого TImage (А лучше создай наследника), с его помощью можно сделать "пустые" области.

А у меня есть к Вам вопрос: каким образом можно сделать "пустые" области, чтобы они не реагировали на события?