siroosss
شنبه 14 فروردین 1395, 17:47 عصر
با سلام
من موقعی که از Application.ProcessMessages در فایرمانکی در رویداد MouseLeave استفاده می کنم دلفی ارورهای مکرر برمی گردونه
این در حالی هستش که در رویداد MouseEnter هیچ مشکلی پیش نمی یاد
یه مثال که توش این ارور به وجود می یاد رو می گذارم :
procedure TForm1.Rectangle2MouseEnter(Sender: TObject);var i: Integer;begin for i := 1 to 20 do begin Rectangle1.Position.X := Rectangle1.Position.X + i; Application.ProcessMessages; end;end;
procedure TForm1.Rectangle2MouseLeave(Sender: TObject);var i: Integer;begin for i := 20 downto 1 do begin Rectangle1.Position.X := Rectangle1.Position.X - i; Application.ProcessMessages; end;end;
من موقعی که از Application.ProcessMessages در فایرمانکی در رویداد MouseLeave استفاده می کنم دلفی ارورهای مکرر برمی گردونه
این در حالی هستش که در رویداد MouseEnter هیچ مشکلی پیش نمی یاد
یه مثال که توش این ارور به وجود می یاد رو می گذارم :
procedure TForm1.Rectangle2MouseEnter(Sender: TObject);var i: Integer;begin for i := 1 to 20 do begin Rectangle1.Position.X := Rectangle1.Position.X + i; Application.ProcessMessages; end;end;
procedure TForm1.Rectangle2MouseLeave(Sender: TObject);var i: Integer;begin for i := 20 downto 1 do begin Rectangle1.Position.X := Rectangle1.Position.X - i; Application.ProcessMessages; end;end;