Курсор на Image ! or ?

[ZuBy]

Здравствуйте!

на форме 2-3 объекта к примеру Image (с ними проблема, т.к. не имеют Handle), в них загружены картинки.
У меня вопрос таков:
как определить над каким Image'ом находится курсор?

[uberchel]

А чем, OnMouseMove не подходит ?

[ZuBy]

не подходит потому что обрабатывается всё в сообщениях
CM_MOUSEENTER и CM_MOUSELEAVE.
и уже в соответствии с определенным image'м выполняются действия!

И я не совсем уверен правильные сообщения я использую? мне именно нужно знать "Вход и Выход" курсора с image'в.


Прошу не писать как мне лучше делать, если знаете то напишите, если нет то то промолчите!

[uberchel]

Хендел есть у канваса: Image1.Canvas.Handle идинственно тин хендла HDC

[ZuBy]

я знаю что есть, но пробовал вот так не получилось:
var
cur: TPoint;
begin
GetCursorPos(cur);
if WindowFromPoint(cur) = Image1.Canvas.Handle then
Caption := 'Image' else Caption := 'Forma';
end;

[ZuBy]

кто знает подскажите плиз, просто другого выхода я не вижу.
OnMouseMove не обрабатывает вход и выход курсора, а у меня будет делатся два разных действия!

[Stilet]

Назначь обоим Image одну и ту же OnMouseMove
А далее Sender будет указывать на какой ты мышкой движешь:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Caption:=TImage(sender).Name;
end;

Смысл ясен?

[ZuBy]

Stilet читай выше что мне нужно!

[Stilet]

читай выше что мне нужно!

А ты пиши в начале темы точно ТЗ а не плаки.
Все работает если поиском по ияндексу.
Вот например такой перехватчик:

unit Unit1;

interface

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

type
  TImage=class(ExtCtrls.TImage)
   procedure w(var m:tagMSG); message CM_MOUSEENTER;
  end;
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var  i:TIniFile;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

{ TImage }

procedure TImage.w;
var w:TWinControl;
begin
 form1.Caption:=Name;
end;

end.

Смысл уловил?

[russian-stalker]

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (mouse.CursorPos.X>form1.Left+image1.Left) and (mouse.CursorPos.X<form1.Left+image1.Left+image1.Width) and (mouse.CursorPos.y>form1.top+image1.top) and (mouse.CursorPos.y<form1.top+image1.top+image1.height) then
caption:=image1.Name else
if (mouse.CursorPos.x>form1.Left+image2.Left) and (mouse.CursorPos.X<form1.Left+image2.Left+image2.Width) and (mouse.CursorPos.y>form1.top+image2.top) and (mouse.CursorPos.y<form1.top+image2.top+image2.height) then
caption:=image2.Name else
caption:=form1.Name;
end;