On Mouse Leave не корректно работает

[Dennis777]

Ребята, очень нужна помощь! Есть имейдж, на который загружена картинка. На форме лежат 2 имейджа. По наведению на каждый срабатывает он маус мув - и подгружается другая картинка, по он маус лив - картинка сбрасывается на исходную.

Так вот, проблема в том, что если переводить мышку с лэйбла на лейбл медленно - то все работает отлично, но если не дай бог пользователь сделает это быстрее, чем за 2 секунды - То картинка сначала сменится на исходную(сработает он маус лив от первого лейбла), затем загрузится новая(он маус мув второго лейбла) и через долю секунды опять загружается предыдущая картинка.

Как это можно исправить? В чем может быть проблема?)

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image1.Picture.LoadFromFile('заставка/2.jpg');
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Image1.Picture.LoadFromFile('заставка/1.jpg');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
doublebuffered:=true;
end;

procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image1.Picture.LoadFromFile('заставка/3.jpg');
end;

procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
Image1.Picture.LoadFromFile('заставка/1.jpg');

[tsar_]

Какую версию Delphi используете? Когда-то я программировал в Delphi 7 и сталкивался с этой проблемой. Информацию о том, почему так, нашел в книге Григорьева Антона "О чем не пишут в книгах по Delphi".

Дело в том, что в старых версиях Delphi (кажется, до 2006) действительно имеются проблемы с событиями MouseEnter и MouseLeave: при быстром движении курсора мыши ничего не происходит - всему виной стала их реализация в VCL.

Начиная с Delphi 2006 разработчики исправили проблему: теперь OnMouseLeave и OnMouseEnter работают как часы (сам пробовал в Delphi 2007, 2009, 2010).

Так что как вариант - переходите на Delphi 2006 и выше.

[Dennis777]

вот у меня сейчас Delphi 7. Раньше как-то не замечал проблемы(
Блин, над будет попробывать по новее установить, но я такой консерватор)) у меня даже ворд 2003 стоит до сих пор)

Спасибо

[evg_m]

при быстром движении курсора мыши ничего не происходит - всему виной стала их реализация в VCL.

У ТС как раз происходит, но очень медленно.

То картинка сначала сменится на исходную(сработает он маус лив от первого лейбла), затем загрузится новая(он маус мув второго лейбла) и через долю секунды опять загружается предыдущая картинка.

Как это можно исправить? В чем может быть проблема?)

В обработке принимает участие медленная операция. LoadFromFile.

Загрузить все картинки один раз при создании формы

  TForm3 = class(TForm)
...
  private
    { Private declarations }
    R1, R2, R3: TPicture;
...
  end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  r1:=TPicture.Create;
  r1.LoadFromFile('1.jpg');
  r2:=TPicture.Create;
  r2.LoadFromFile('2.jpg');
  r3:=TPicture.Create;
  r3.LoadFromFile('3.jpg');
  self.Image1.Picture:=R1;
end;

А в событиях просто переключать картинки.

procedure TForm3.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  self.Image1.Picture:=R2;
end;

procedure TForm3.Label1MouseLeave(Sender: TObject);
begin
  self.Image1.Picture:=R1;
end;

procedure TForm3.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  self.Image1.Picture:=R3;
end;