Событие Delphi

[san72]

У меня есть форма, на ней компонент Image, как можно отследить что мышка находится на нём или за его пределами? Отслеживать координаты курсора неподходит, очень хорошо если есть какое-то событие, но обрабатывать OnMouseMove в моём случае тоже неподойдёт, как мне решить такую проблему?

[AVer]

ИМХО никак... А ты опиши ситуацию, может чего придумаем...

[mihali4]

Ну почему никак... В программировании нет ничего невозможного.
Вот, например, как я в DFaq-е это дело организовал (как раз с картинками):

...
  private
    { Private declarations }
    procedure ImCloserWindowProc(var Msg: TMessage);
...
var imclose: integer;
...
{$R *.dfm}
var
  OldCloseWindowProc: TWndMethod;

function LoadJpegRes(const ID: string): TJpegImage;
var
  RS: TResourceStream;
begin
  Result := TJpegImage.Create;
  RS := TResourceStream.Create(HInstance, ID, RT_RCDATA);
  try
    RS.Seek(0, soBeginning);
    Result.LoadFromStream(RS);
  finally
    RS.Free;
  end;
end;

procedure Tfmain.FormCreate(Sender: TObject);
var r1,r2,r3,r4: THandle;
begin
...
OldCloseWindowProc:=ImCloser.WindowProc;
ImCloser.WindowProc:=ImCloserWindowProc;
ImCloser.Perform(CM_MOUSELEAVE,0,0);
...
end;

...

procedure Tfmain.ImCloserWindowProc(var Msg: TMessage);
begin
case msg.Msg of
CM_MOUSELEAVE:
begin
if imclose<>0 then
begin
MyJpeg := LoadJpegRes('CLOSEOFF');
ImCloser.Canvas.Draw(0, 0, MyJpeg);
imclose:=0;
end;
end;
CM_MOUSEENTER:
begin
if imclose<>1 then
begin
MyJpeg := LoadJpegRes('CLOSEON');
ImCloser.Canvas.Draw(0, 0, MyJpeg);
imclose:=1;
end;
end;
end;
OldCloseWindowProc(Msg);
end;

Это картинка, которая вместо крестика для закрытия программы, так называется - ImCloser. Когда мышка на нее попадает, происходит смена картинки из ресурса, когда уходит - обратная смена. Что-то вроде "неоновой подсветки", как недавно выразился один товарищ в поисках (зачем-то!?) "неонового" компонента...

[AVer]

Мир не без умных людей..

[Arkuz]

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

Отслеживать координаты курсора неподходит:

Подходит:

Mouse.CursorPos.X-Form1.Left
Mouse.CursorPos.Y-Form1.Top

Как раз координата будет браться не от левого верхнего угла экрана, а от левого верхнего угла Формы.

[Arkuz]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (Mouse.CursorPos.X-Form1.Left>=Image1.Left) and
   (Mouse.CursorPos.X-Form1.Left<Image1.Left+Image1.Width)
   then
     if (Mouse.CursorPos.Y-Form1.Left>=Image1.Top) and
        (Mouse.CursorPos.Y-Form1.Left<Image1.Top+Image1.Height)
        then
          Label8.Caption:='Мышь НА Image1'
        else
          Label8.Caption:='Мышь ВНЕ Image1';
end;

[mihali4]

Такое и делать по таймеру???
Нонсенс...
А предыдущий ваш пост я уже видел, но в ответе на другой вопрос san72.
Ошиблись, видимо, дорогой товарищ?

[Arkuz]

mihali4, просто в силу своих знаний я предложил такое... Альтернатива выплыла лишь из-за того, что автор сказал, что никаким образом нельзя ему использовать OnMouseMove... Не рационально, но работает :-)

[san72]

всем спасибо, я уже сам придумал как организовать всё, ну если неполучится то использую что нибудь из ваших советов )