PDA

View Full Version : دریافت ارور در زمان استفاده از ProcessMessages



siroosss
شنبه 14 فروردین 1395, 16: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;