XE3, Themes, Button bleibt markiert

[4dk2]

Also die Lösung für die, die es interessiert oder das selbe Problem haben, ist:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Enabled:=false;
  sleep(100);
  Button1.Enabled:=true;
  Button1.SetFocus;
end;