OnMouseMove

[yaroslav2468]

не такой я уже и тупой что не ставил ; в сточках кода.ладно, сделал велосипед, компилируется.но не работает( и в ваш код не компилируется.
делфи 7 у меня

P.S.
сделал код

procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image3.Visible:= false;
Image2.Visible:= true;
end;

заработало.только если отводишь мышку назад картинку та что была обратно не показывает.как можно сделать?

[northener]

Вот исходник для Д7. Попробуйте.
http://webfile.ru/6625738

[yaroslav2468]

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

Вот исходник для Д7. Попробуйте.
http://webfile.ru/6625738

Нее не компилирует, ошибка в :

procedure TForm3.FormCreate(Sender: TObject);
begin
TMyImage(Image1).OnMouseEnter:=MyImageMouseEnter;
TMyImage(Image2).OnMouseLeave:=MyIm ageMouseLeave;
end;

[northener]

Да вру. И с чего это я взял что в Д6 у TControl уже было событие OnMouseEnter? (((

Тогда вот такой код поможет:

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Image1: TImage;
    Image2: TImage;
  procedure CMMouseEnter(var Mes: TMessage); message CM_MOUSEENTER;
  procedure CMMouseLeave(var Mes: TMessage); message CM_MOUSELEAVE;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.CMMouseEnter(var Mes: TMessage);
begin
  if (TControl(Mes.LParam) is TImage) and (TControl(Mes.LParam) = Image1) then begin
    Image1.Visible:=False;
    Image2.Visible:=True;
  end;
end;

procedure TForm3.CMMouseLeave(var Mes: TMessage); 
begin
  if (TControl(Mes.LParam) is TImage) and (TControl(Mes.LParam) = Image2) then begin
    Image1.Visible:=True;
    Image2.Visible:=False;
  end;
end;
end.

Проверено на Д6

[yaroslav2468]

хух) пашет)) спс большое)

[northener]

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

хух) пашет)) спс большое)

Не за что. Если бы не мой склероз правильный пример был бы гораздо раньше!