On Fri, 2 Jan 2009 18:59:55 +0100 Thomas Moritz <thm...@thmoritz.de> wrote:
> Hello and Happy New Year, > > my system (linux): x86_64, fpc 2.2.3, lazarus 0.9.27 SVN 18055 > > Button1.Enabled:=False; //works fine :-) > Button1.Enabled:=True; //bug or user-error? > > Sample: > Set the mouse over Button1 and press left mouse-key -> fine :-) > Do not move the mouse! > If counter 50 and 'Button1.Enabled' press left mouse.key! > ...no effect > First you must move the mouse beside. > > Button1 is default: > Press Return-Key > If counter 50 and 'Button1.Enabled' press 'Return-Key' > ...no effect > > //--------------------------------------------- > procedure TForm1.Button1Click(Sender: TObject); > var n: integer; > begin > Button1.Enabled:=False; > for n:=0 to 50 do > begin > sysutils.sleep(10); > Label1.Caption:=inttostr(n); > Application.ProcessMessages; > end; > Button1.Enabled:=True; > end; > //---------------------------------------------- Please create a bug report. Mattias _______________________________________________ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus