Timage

[Черничный]

Как можно в Tomage добавить event мышка ушла с image? там есть навели (mousemove), надо отвели.

[Aristarh Dark]

WM_MOUSELEAVE спасет гиганта мысли

[Stilet]

Черничный, загляни сюда:
http://programmersforum.ru/showthrea...=WM_MOUSELEAVE

Aristarh Dark

Такого сообщения я не знаю.

[mutabor]

http://www.programmersforum.ru/showthread.php?t=18269
Смотря какая у тя версия Делфи, если новая то есть события MouseEnter, MouseLeave. Если нет, ищи на форуме как заменить, уже обсуждалось много раз.

[Aristarh Dark]

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

Черничный, загляни сюда:
http://programmersforum.ru/showthrea...=WM_MOUSELEAVE

Такого сообщения я не знаю.

Не знаешь, изучай

[Stilet]

Aristarh Dark

Оно то конечно да, только у меня в SDK и в D6 такое даже не описано.
Потому и не знаю об этом
А на МСДН Хоть бы код описали...

[B_N]

А чего вы взялись спорить, если TImage не является окном?

[Черничный]

 procedure OnMouseLave(var Msg:TMessage); message CM_MOUSELEAVE;
    procedure OmMouseMove(var Msg:TMessage); message WM_MOUSEMOVE;

procedure image1.OnMouseLave(var Msg:TMessage);
begin
  Form1.Caption := 'Мышка ушла c имиджа';
end;

procedure image1.OmMouseMove(var Msg:TMessage);
begin
  Form1.Caption := 'Мышка на имедже';
end;

[Stilet]

B_N

Верно, но мудрые дядьки в Борланде предоставили нам возможность работы не только с окнами а и с компонентами

Сообщения из серии CМ_ работают с практически любым визуальным компонентом делфи, в том числе и с теми которые хендла не имеют.

unit Unit1;

interface

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

type


  TImage = class(ExtCtrls.TImage)
    procedure w(var m:tagMSG); message CM_MOUSEENTER;
    procedure q(var m:tagMSG); message CM_MOUSELEAVE;
  end;

  TForm1 = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



{ TPanel }

procedure TImage.q(var m: tagMSG);
begin
form1.caption:='Ушло';
end;

procedure TImage.w(var m: tagMSG);
begin
form1.caption:='Пришло';
end;

end.

Aristarh Dark, я потому и дал такую ссылку автору.

[B_N]

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

Верно, но мудрые дядьки в Борланде предоставили нам возможность работы не только с окнами а и с компонентами

Это я знаю. Просто к старой дельфе прикрутить к нему вот так в лоб, оконное сообщение, как предлагает Aristarh Dark, не получится.